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MSX バ パソ コン で 


こん な ゲー ム が 楽 し の 5 よ / / 
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画 めん し ゅ う [ 肖 加 
画面 集 "本 3 0 
この 本 で 作れ る ゲー ム だ よ 。 ) 


告 は 、 ど れ か ら 作 る つも り ? 


エム エス エッ ク 


、N 
MS X パ ソコ ユ コン が い 


あれ ば 、 
こん な に 
楽し い ゲ ー ム が 
で きる わ よ 。 


みん な 
わた し が 
打っ た の よ 。 


に 


デー タレ コー ダ へ か 

_ 和 DO 人 
ミミ ] た 
則 。 が 


ゲー ム 作り に 
欠か せな い の が 、 
ペー ルレ ニー な 
プロ グラ ム が 


ほ ぞ そん 


保存 で きる わ よ 。 


陣 》 ドッ ト プ リ ンタ 
東芝 HX-P550 放 


プロ グラ ム の 
リス ト も と れる し 、 
ワー プロ に も 

使え を る ん だ っ て 。 


は じ め か ら 
全部 そろ えな く て も 、 
「 寺 中 の 2 6 


ある と 便利 だ よ 。 


@ カ タロ グ 請 求 先 105 東京 都 港 区 芝浦 1- |- | 
(株 ) 東芝 ・ 家 庭 情報 シス テム 営業 部 パソ ピア IO 係 電話 (03)457-3777 
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@ MS X バ ソコ ン の 動か し 亡 や 入力 の し 方 は , 「 学 研 ニ ュー ホビ 
デー ラリー まん が で わか る M S X パソ コン 」 に こわ し く の 


555@GU ま まき 初め て プロ ブラ ム を 入力 す 
る 人 は , そちら か ら 先 に 読み まし よう 。 9 の 


@ こ の 本 は , MS X の マー ー ク が つい て いる パソ コン な ら , どの メ 
ー カ ー の も の で も 使え ます 。 

@ だ だ し , 「 カ ラス と 栓 兵衛 」 と 「 パ ソコ ン リ ー チ 」 は RAM が 
16k 以 上 の も の し か 使え ませ ん 。 8 K の パパ ソコ ン の 場合 , 拡 
R AM を 付け て か ら , 入力 し て くだ さい 。 

@ 入 力 の や の 方 
の 符 番 号 か ら 打ち 込み まし よう ! 

' AUTO [RETURN] と 打ち 込む と, 自動 的 に 10 ず つ 行 

営 が 由 ま す 。 1 行 分 入 レ お わ つ だ ら 。 ま だ リタ ー の 

の 番号 が で ます 。 止め る に は , ETRLI+STOB。 

@ 各 行 ご と に 必ず リタ ー ン す る よう に 
ひと つの 行 番 号 に つ な な プ る 人 を っ な ら 倍 す リッ ー っ キー 

を 撫 し まし よう 。 まだ , 打ち まち が い を 稀 正 し た と き に も 活 れ 

ざ に 。 (この 本 で は , ペー ジ の スペ ー ス の 関係 で , 1 行 の 命 人 

が ら だ ん に わか れ て 書い て ある と ころ が あり ます 。 行革 号 が 変 

わら な いか ぎり 1 こぎ り の 命令 で す 。 最後 に リターン し て ぐだ 

さい 。) 

③L | S T を と りな が ら 確 か め つ つ 入 力 し まし よう ! 


@ 実 行 の し 万 
有 2 国 多 ア 交 , 打ち まち が い ガ な な いこ と を 委 認 し た ら , 実行 
し て み ま し ょ よう 。 実行 は , 因 II [RETURN LIRETURN| で す 。 
初め の うち は , うま ぐ 動 みな いも の で す 。 打ち まち が いか が 応 
ざ ず あ り ま すか ら , 根気 よく 探し 出し て , 一 つ ー つ 修正 し て いき | 
まし ょ う 。 こ こ に のせ た だ プログ ラム は , どれ も 和 認 ずみ の も の 
6 す 。 1 
@ 三 へ を 見 つけ る ボ ポイント 
④ 命 令 の 打ち まち が い 。 (⑫ LPCATE) @ 変 数 の 打ち まち 5 
が い (S X を S F と 打つ ) ③ そ の 他 よ こく ある 打ち まち が い -…‥ 
5 ジジ がら ( 世 り 計 ) 
ie 古 眉 2 の Da 【C 避 慰 司 回 光 ) 
弓 ( 四 9 直 中 。 |! (PT) と 1。QO と プー) と OCD 
$ 4 ダラー 上 GDI(IE ジ 4) 
@ 位 置 あわ せ を し て みる 。 
他 の 行 と その 行 と の 位置 あお わり せ を し て みる 。 最後 の 文字 が 他 
の 行 の どの 文字 と あつ て いる カ 見 て みよ う 。 
⑤ エ ラー ー が 発生 し た 行 に エラ ー ー が な いこ と が ある 。 
エラ ー が 発生 し た 行 と 関 際 し た 行 に ミス ガ あ つて, /NV こ レラ 
が 止ま っ て し まう こと が ある の で 注意 
@ ブ ログ ブラム は , その つど SAVE す る ぞ 習 慣 を 。 
一 度 打 つた プロ グラ ム は , だ と え 動 か みな く と も , カセ ッ ト に 
セー プ し て お きま し よう 。 電源 を 切っ だら, 全部 な こなつ て し レ 


| まい ます も の ね 。 
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人 表紙 装 丁 
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ご の 移 生 記 
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ジャ 1 か 月 100 
以上 は か か な いよ うに 心がけ て 
大 は 月 座間 ペー ジ 胡 株 
計 と 画 の ビデ オ 要り 。 
@ 代 表 作 プ 男 の 劇場 プ ふ た り は 恋人 ン 

愉 502 信 
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@ グ ゲー ム の 開始 プ ブログ プラム を 持ち 込ん だ ら , IDIN [RETURN 。 
@ ゲ ー ム の 目 8 : ・ 地球 を 支配 し よう と す る 英 . コー ラル 星人 だ ち が 
いよ いよ 概 氏 を 半 公 し て きだ 。 地球 を 守る われ ら 地 久生 の 使 
命 は , 逆 の ミサ イル 必 撃 を 主 右 に か わし な が ら 出 導 を 数 多 < 爆 
飲 さ せる こと だ 。 味方 の 攻撃 機 は 1 機 。 当 の 如 機 和 納 琴 に は 
残り 2 機 し か お い 。 ご の 味 訪 の 3 覆 疲 震 さ れる と 。 地球 は 侵 明 
され , ゲー ム オ ー バ ー。 さあ , この 3 機 で 敵 を どこ まで や っ つけ 
られ る か ! 

お っ と , それから 訪れ て は な ら ね い の が この ご と 。 敵 の ミサ イ 
ル は , 訂 首 つ さき で, 味 機 の 位置 や 速度 を 検出 し つつ 追 喉 し 
て < る カ ら , 要 注 意 。 

@ キ ー の 操作 記法 : カー ソル 移動 キー と スペ ー ス キー。 

. カ ー ソ ル 移 動 キ ー の 右 と を で , 味 換 の を 右 の 移動 が で きる 。 
当 太 の ミサ イル は スペ ー ス キー で 発射 され る 。 だ だ し 。 当 亡 の 
ミサ イル は 箇 発 は きか , 先 に 撃っ た ミサ イル が 治 え な いか ぎり 
発 敵 で き な い 。 


DEFINT Aa-Z 
KR=RND(-TINME ) 
COLOR 15,9,9:SCREEN 2,9:OPEN"GRP: “" 
#1 
GOSUB 489 
G0SUB 619 
NN=3:PT=9 
FOR S=9 TO 3 
FOUR J=1 TO 8iREAD AiA1 ま =A1 ま +CHR ま (A) 
: NEXT JiSPRTTE ま (S )=A1 ま 
99 A1=" "kNEXT S 
199 DATA 9,24,24 24,.69,189 ,255 , 255 
119 DATA 255,255 , 255 , 255 24 , 24 24 。24 
129 DATA 69,69,69,69,24,24,24,24 
139 DATA 16,16,16,16,56,56,56 16 
149 SPRITE ま (4 )=SPRITE 和 (9 ) 
159 SPRITE ま (5 ぅ =SPRITE ま (9 ) 
69 PUMI SPRITE 4。(237 。166 ) , 1 , 4 
山 20IUIT SPRI TE つう 。(237 。179) 15,S 
189 X1=16X8 
199 X2=19X※8 : Y2=9g:DX=ー1 :GUTO02Z19 
299 GUSUB 579 
219 X3 ニ X2:Y コ =Y2+8 
229 IF ID=9 AND STRIG(9) THEN BEEP: 1D= 
ー1 :X4=X1 : Y4= ニ 183-8 
層 3 紀 旨 ISPRTTE 上 。(X1。183 ) 。1 う 9 
249 PUT SPRITE 1。( メ 2。Y2) ,』4。1 
259 PUT SEPRTTE 2、(X3. 3) 9 。 メ 
269 1]F JD=-1 THEN PUT SPRITE 3。〈X4,Y4 ) 
R 貞 8 選 L ら 世 。 PUIT SPRTTIES。(ー19 19)。349。3 
279 IF ID=9 THEN 399 
289 IF YA4>=7 THEN GOTO 399 ELSE ID=9 
299 IF X4>X2-7 AND X4 く X2+7 THEN GOSUB 
659 :GOTO 219 ELSE 219 


和光 の ペー ジ に 続く 


(26 ) 


399 IF Y3<=179 THEN 329 
319 IF X3>X1-7 AND X3<X1+ ア THEN NN=NN- 
1:IF NN=9 THEN MA=2:GOTO 419 ELSE 299 
329 A=STICK(9 ) 

339 IF A=3 THEN X1=X1+8:TF X1>297 THEN 
X1=27 

349 IF A=7 THEN X1=X1-8:TF X1<9 THEN X 
1 =9 

359 X2=X2+DXx2: IF X2<9 OR X2>297 THEN 
DX=(-1 )xDX:GOTO 359 

369 IF X1<X3 THEN X3=X3-5 

379 IF X1>X3 THEN X3=X3+5 

389 IF ID THEN Y4=Y4-7 :1IF Y4<9 THEN 1 
D=9 

399 Y3=Y3+6: IF Y3>184 THEN 219 

499 GOTO 229 

419 GOSUB 599 

429 LINE(19,78)-(241 ,99 ) ,1,BF 

439 PSET(59 , 89 ) , 1 

449 PLAY"05T255L64CDC" 

459 PRINT#1,'GAME 0VER!!" 

469 FOR 1=1 TO 19999:NEXT 

479 COLOR 15,4,?:END 

489 FOR N=1 TO 199:PSET(RND( 1 )x256,RND 
(1 )x192) ,RND( 1 )x16 

499 NEXT N 

599 FOR N=1 TO 4 :X=RND(1 )*x252:Y=RND( 1 
)*159 :R=19+RND( 1 )*29 :C=RND( 1 )x14+2 

519 CIRCLE(X,Y),R,C 

529 PAINT(X,Y),C,C 

539 NEXT N 

549 CIRCLE(127,389 ) , 259 , 4 

559 PAINT(127,191 ) ,4 

569 RETURN _q 

57?9 IF NN=2 THEN SPRITE ま (4)="" 


ず 光 の ベー ジ に 続く 


人 W27 


589 IF NN=1 THEN 'SPRITE ま (5)="“* 
599 SOUND 6,19 :SOUND 7?,55:SOUND 8,16: 
SOUND 12,99:SOUND 13,3 

699 RETURN 

619 LINE(298,16)-(255,23) , 1 ,BF 
629 PSET(298, 16 ) , 1 

639 PRINT #1。"POINT“ 

649 GOTO 679 

659 GOSUB 529 

669 PT=PT+199 

679 LINE(298,24)-(255,31 ) , 1,BF 
689 PSET(298,24 ) , 1 

629 PRINT #1,PT 

99 RETURN 


査 改造 と 解説 の ワン ポイ ント ・ レ ッ ス ン 
@ 味 方 の 数 を ふやす に は di 衣 8o0Bvsoaeecekeos2 60 行 
60 行 の NN= ニ 3 を 10 に 変え て みよ う 。 味方 の 攻撃 隊 が 10 ま で ふ 
えて , や られ て も や られ て も な ね カゲ ー ム オー バー に な ら な い > 
ゲー ム オ ー バ ー に な る か どう か の 判 症 は 。310 行 で や つて いる 。 
1F _ NN= ニ の THEN- で 41 0 行 に 飛び , ゲ ー ム オー/ パー に な る 
わけ だ ね 。 
@ 味 方 の スピ ー ド を あげ る に は …………… 330 行 と 340 行 
330 行 と 340 行 の THEN の 後 を 見 て みよ う 。 
メイ ニ メ イ 8 一 ふみ ※% 4 ニ ぶ 1 士 16 
1 三 ※ イ ブイ ー8 ミ ュ X 1 三 え イー16 
と 変え る と , スピ ー ド が あがる よ 。 
@ ミ サイ ル の スピ ー ド を あげ る に ほ は …………… 380 行 
380 行 の Y 4= ニ Y4ー フ の 7 の 数 字 を 大 きく し て みよ うつ 。 
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了 、 アル ー ム 開始 : ん コン 4 ラム を 打ち 込ん だ ら , RIUIN [RETURN IRETURNI。 


@ ゲ ー ム の 目的 : 療 は へ リコ プター で 国際 スパ イ 団 の 控 累 に 出 か 
け だ 秘 虹 情報 部 員 だ 。 君 の 任務 は 敵 の の これが を すみ や か に 夏 
壊す る こと 。 だ だ し , 投下 で きる 昌 台 多 よ 6 発 。 地上 上 に は 8 埋 
家 が 見 下ろ せる が , ぐれ が は 1 埋 どれ が か これ が な の か は 着 
も 知ら な い 。 (も ちろ ん , 敵 自 自 は 知っ と る け ! ) る に 

まあ , と に か ぐ 健 関 を 祈る 
も し , の の これ が が 破 大 不能 の 場合 娠 が 生き て 帰れ な ご て 
もそ れ は 当 紀 の 一 切 関 知 し な いこ と で ある か ら , ゆる せ ! 

@ キ ー の 操作 方法 : スペ ー ス キー。 じ 

へ リコ プター は 右 向 に 自重 69 に 飛 全 し て いる 。 各 閣 
を 落と すこ ころ に きだ ら , スペ ー ス キー を 抑 す 。 する と , 落下 す 

る まで , ヘリコプター は その 位置 に 停止 し て いる 。 効率 よく 落と 

で 8 


本 、 敵 の アジ ト を つぶ せ の プロ グラ ム 時 
19 COULOR 15,4,7:SCREEN 2,9:OPEN' GRP: "Aa 


っ 1 


2Z9 T=RND(-TIME ):R=INT(RND( 1 )*8) 

39 FOR T=9 TO ァ 

49 PSET(29+TX39 。 179 ) ,4:DRAM "S4C15RSF5 
L1SESBDSBL2DSR9U5 “ 

つ 9 NE2GETT 

69、 LINE(9。181 )-(255,191 ) ,。9,BF 

E の ER6GEB 選 (189 , 30 ) , 39 。 。 , ,。 , 5 

89 PAINT(189,39 ) , 15 

層 内 どじ RCLE( 2 ジ 9 。49 ) , 20 。 。 。 , .5 


199 
119 
129 
139 
149 
159 
169 
179 
189 
199 
299 
219 
229 
239 
249 


PAINT(229, 49 ) , 15 

FOR 1=1 TO 8 

READ D$:X$=X ま +CHR ま (VAL("&H"+D) ) 
NEXT 1 

SPR 1 TE まま (9 )=X ま 

FOR 1=1 TO 8 

READ D ま :B ま =B ま +CHR ま (VAL("&H"+D ま ) ) 
NEXT 1 

SPRITE( 1 )=B ま 

GOSUB 439 

N=6 

FOR X=9 TO 255 

IF NOT STRIG(9) THEN 329 

SOUND 7?,62:SOUND 8,15 

B=9 

FOR YY=28 TO 192 

SOUND 9,B:B=B+1 

PUT SPRITE ee まい か kh 

NEXT YY 

IF 19+RxX39 く <X AND X<26+Rx39 THEN 36 


GOSUB 439 
N=N-1 : IF _N=9 THEN 358 


年 % の ベー ジ に 続く 


ay 


329 PUT SPRITE 9,(X。28 ) ,14,9 

339 NEXT 多 X 

349 GOTO 216 

359 SOUND 13,9:PSET( 199,89 ) ,4:PRINT#1 。 
"オマ EE 汎 クタ E” x608TO 419 

369 SOUND 6,19 :SOUND 7,55:SOUUND 8,16: 
SOUND 12,99:SOUUND 13,3 

379 PSET(115,89 ) , 4 : PRINT#1 。" ヨ ク ヤリ ゅ タ " 
389 LINE(15+R※39 , 1 79 )-(32+R※39 , 189 ) , 4 。 
BF 

399 FOR 1T=1 TO 2999:NEXT T 

引 99 END 

419 DATA 3F。8C。8C.,FF ,B。 1 。9E 。99 

429 DATA 29,79,F9,7C,1E,1F ,9F ,96 

439 SOUUND 6,39:SOUND 7?,54:SOUND 8,16 
449 SOUND 12.2SOUND 13,12 

59 RETURN 

469 SOUND 7,62:SOUND 8,15 

479 FOR B=9 TO 17 ァ / 

89 SOUND 9,B 

499 FOUR 「=1 TO 19 kNEXT 

っ 99 NEXT 

519 PSET(29+Rx39 , 179 ) ,4:DRAM "S4C1R5F5 
L15E5BD5BL2D5SR9U5 " :PSET( 18+Rx39 , 155 ) , 4 
:PRINT#1 "ココ" 

529 PUT SPRITE 9,(X,29),1,9 

539 GOTO 399 


卒 改造 と 解説 の ワン ポイ ント ・ レ ッ ス ン 


@ バ パフ ダン の 数 を ふやす に は 


200 行 の N=6 の 6 を 12 に する と , パフ ダン の 数 が 1 に な る よ 。 
ゲー ム オ ー バ ー の 判定 は 310 行 。 


ジョー ト 
ゲー ム は 
いか が !7 


( 40 ) 


の 3 
ン 


SS Se YA ANN RT 7 の 77.2022 2 タン 
RIN ASNNS NIS で YA い 0 ! ( / の 
2。 りき ト いさ SN の し ! ァ 突 / レ 

3 No ヽ に ク / を ン 


NN oi7 5 P 


の 4 寺 


ん ルル ア 
ピ 


あ そ ( 44 ) 


@ ゾ ゲー ム の 開始 フロ グラ ム を 打ち 込ん だ ら , RI IRETORN。 
@ ゲ ー ム の 自 的 : 1 カ ら 16 ま で の 攻 字 板 の ウラ に は , 8 種類 の プレ 
ゼン ト が かぐ され て いま す 。 神経 弱 の よう に 同じ 話 物 を ら 枚 と 
も ひき あて れ ば , その 品物 は あな だ の も の 。 (と 言 つ て も , 座 も 
何 も こ れ ま せん が ……) E 
8 回 まで ミス が の る され ます が , 結構 お むずかしい 。 さ あ , あな 
だ は , 何と 何 を 手 に 入れ る こと が で きる ガ な あ 。 ま さか, タワ シ 
だ け な ん て こと は 。 お いで し よう ね 。 
ー 人 で や る だ け で な ぐ 。 ご 人 で や れ ば ぱ , な お 楽し いで す よ 。 
| @ キ ー の 操作 方 法 : 数 字 キ ー と リマ ー ン キー。 
[ ま ヴ 数 字 を ひと つ 忌 び , 数 字 を 入力 し て リターン 。 その と き , 
O や 17 必 UE だ と も う 一 度 入力 の し な お し で す 。 それ か ら , も う ひ 
と つの 数 字 を 選ん で 入力 し , リマ ー ン 。 同じ も の な ら , 数 字 概 に 
文字 が 入り ます 。 ちがう と き は , すぐ 1 枚 自 の 数 字 の 入力 を 聞い 
" て きま す 。 ま だ, 一 度 打 ち 込 ひで 正解 に な っ だ 串 物 の 数 字 は 、 入 


力 で きま せん 。 


ウキ ウキ ペア マッ チ の ブロ グラ ム 


19 DEFINT A-Z 

2Z9 COLOR 15。4。4:SCREEN 1:KEY OFF 
39 DIM K(16) 

49 R 民 =RND(-TIME ) 

っ 9 FOR IT=1 TO 8 

69 READ M ま (1) 

79 _N=RND( 1 )※16+1 

89 IF K(N)=9 THEN K(N)=1 ELSE 79@ 
29 N=RNDC( 1 )※16+1 

199 IF K(N)=9 THEN K(N)={ ELSE 99 
119 NEXT 1 

29 OAIE 19.32PRINT 4" ア マッ チ " 
139 M=8:PT=9 

149 FOR Y=1 TO 4 

は 9 FOR X=1 TO 4 

169 LUCATE (X-1 )%※6+3。Yx2+5sPRINT (Y-1 ) 


NEXT X,Y 

日 A 33 が も 、 ル "ソコ ン 

BATA テレ ルビ "ルッ ト 

DATA 作 フ ブラシ , タ ワシ 

DATA カメ ラ , マ ンカ “ 

EOCATE 20.5:PRJNT ぁ あと "jiMi が Mn" 
FOUR 「=1 TO 1999:NEXT T 

FOR Y=18 TO 22 

LOCAILE 9、Y:PRINT STRING* ま (25。′  “) 
NEXT _Y 

LOCATE 19。18:INPUT "1 マイ メ ” sjN1 

IF _N1 く <1 OR _N1>16 THEN 279 

IF KCN1 )=-1 THEN 27@ 

LOCATE 17,18:PRINT M ま (KCN1) ) 
LOCATE . 19,19: INPUT "2 マイ メ " 5N2 

IF _N2 く 1 OR _N2>16 OR _N1=N2 THEN 319 
IF KCN2)=-1 THEN 319 


光 の ベー ジ に 続く 


349 LOCATE 17,19:PRKINT NM まま (KCN2 ) ) 

359 IF _ KCN1) く >-1 AND KC(N1 5) く >K(N2 ) THEN 
429 

369 LOCATE 29,29:PRINT " ぁ あたり" :PLAY"U1505 
上 に 

379 LOCATE ((N1-1)MOD 4)※6+3。((N1-1 ) 半 

4+1 )%※2+5:PRINT M ま (KCN1)) 

389 LOCATE ((N2-1)MOD 4 )※6+3。((N2ー1 )\ 

4+1 )%2+5:PRINT M ま (KCN2)) 

329 K(N1 )=-1:K(N2 )=ー1 :PT ニ PT+ 1 

499 IF PT=8 THEN 469 

419 GOTO 229 

429 LOCATE 29,29:PRINT "は す " れ "iPLAY"V150 
2 

439 NM=M-1 

449 IF M<>9 THEN 229 

459 LOCATE 29,5:PRINT" 3 

469 LOCATE 了 ,21:PRINT "も う お わり て “ す 。" 


査 改造 と 解説 の ワン ポイ ント ・ レ ッ ス ン 


@ で て こる 品物 を 変え る に は 180 行 一 210 行 
品物 は 180 行 か ら 210 行 の デー タ 文 で 決め て いま す 。 6 文字 ぐら 
いで ちがう 品物 を 入力 し , カン マ で つなげ て いつ て み ま し よう 。 

@ め ご る 回 数 を や す に は 

130 行 の M ニ 8 を 10 や 12 に する と , めこ る 回 数 が 10 や 12 に な り ま す 。 


( 47 ) 


に 
人 


ニーー ニ ョ 
/ 郊 


8 PS 


GA この トン ボ の 目 が ゲー ム と な り ま し た 。 


@ ゾ ゲー ム の 開始 フロ ゾラ た な ん だ ら , 還 IRIRETORN。 

@ ゲ ー ム の 目的 : まず , と ん ぽ の 目玉 の よう な 5 つの 図形 が 出 て こ 
る 。 この 5 つの ちがい を よく 記 培 し て お こう 。 少 レ だ つと 。 この 
5 つの 図形 が 消え て 1 つ だ け 出 て こる 。 さあ , 何 矯 自 の 図形 だ つ 
だ ろう 。 これ が な な か お ず が し い 。 10 回 チ ヤ レン ジ す 9 る と あ 
な だ の 剛 記 力 を 判 誠 し て これ ます 。 

@ キ ー の 操作 方 法 : 数 字 キ ー と リタ ー ン キー。 
正しい と 思う 数 字 キ ー を 入力 し リタ ー ン 。 9 る 当 だ のり だ た 
は ずれ を 着 し は ずれ の 場合 正 角 も 震え て ぐれ る よ 。 


山 トン ボ の 逆 の プ ログ ラム 典 


19 DEF INTA- -Z :PLAY "v15" 

紹 @ 人 届 MLUR 34 。1 

39 SCREEN 2,2:OPEN "> 人 梓 

49 PT=@ 

59 FOR 6=1 TO 19 

ら 9 5L 5 

7g_R=RND(-TIME ) 

89 FOR [=1 TO 5 

29 N(I)=RND( 1 )※16 

199 NEXT 1 

昌 征 加 ER 1=1 TU 43FORK =1 TBS 

129 IF 1<>J AND _N(1I)=N(J) THEN 8@ 
上 SO NEXT J。! 

149 GOSUB 37@ 

159 FOR 1「=1 TO 2999iNEXT 「 

Sg CLS 

179 PSET(19,19) ,1 :PRINT#1 "つき" 0 が た ち は 
な ん は “ん め 「 

189 A=RNDC( 1 )※5+1 :「= ニ Na) 

199 FOR N=1 TO 4 


の ペー ジ に 続く 


289 CIRCLE (119,59 ) , NX4 

219 IF T MOD 2=1 THEN PAINT(119+N※4-1 。 

59 ) 

229 =T\2 

239 NEXT N 

249 IF INKEY ま く >" "THEN GOTO 249 

259 A ま =INPUT ま (1 ) 

269 PSET(189,19 ) , 1 :PRINT#1。A ま : "5 

279 IF VAL(A*)= A 。 THEN PT=PT+1 : PRINT1 
> アタリ" PLAY "o5ec" ELSE PRINT#1 "内 スレ " 
:PLAY "o2c3" :FORT=1 TO 499:NEXT TiPSET 
(168,199) , 1 :PRINT#1 。" セ イカ イ 中 "AiFOUR 征 =1 
TO 499:NEXT T 

289 FOR =1 TO 1999:NEXT 

299 NEXT G 

389 SCREEN 1 

3 NILOR 5 。Y 

329 PRINT "セイ カイ : "PT: 

339 IF PT=<2 THEN PRTINT "あん まり ょ く か が" あり ませ 
2 

349 IF _PT>2 AND PT=<7 THEN PRINT "あん きり ょ 
く < 潤 まあ まあ て" すず す 。 ご 

359 IF PT>7Z THEN PRINT "あん まり ょ く が か が" は "つく" 
て すず 

369 END 

379 FOR X=1 TO 5:T=NCX) 

389 PSET(Xx49,29) , 1 :PRINT 1,X 

399 FOR _N=1 TO 4 

489 CIRCLE (19+X※49 ,59 ) ,Nx4 

419 IF T MOD 2=1 THEN PAINT(19+XX49T+TN※ 

-1 ,59 ) 

29 ゴ =T \ ギ る 2 

439 NEXT N 

449 NEXT X 

459 RETURN 
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( 54 ) 
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あま ( 58 ) 


新型 も ぐら た たき 


@ ゲ ー ム の 開始 : プロ ブラ ム を 打ち 込ん だ ら , 回 [UIN RETURNI。 
@ ゲ ー ム の 目的 : 早い 話 , つま り , その , まあ , も ご ら た だ き で す 。 
で す が , パソ コン に すみ つい だ も ぐら は ,。 キ ー ポ ボード を た だ いて 
や っ つつ ける こと が で きる の で す 9。 も ぐら を うま ご だ だ ご と , 右 に 
も ぐら が 表示 され て いき ます 。 20 び き で 全部 で す 。 時間 内 に 何 び 
きつ の まえ られ る カ な 。 あ あ , それ か ら も うー つ 。 まち が っ た キ 
ー を 押す と , せつ カ ぐ つの まえ だ も ぐら は 一 びき ずつ 送 げ だ し 
て し まう ん で す よ 。 さあ , 妊 も チャ レン ジ 。 
@ キ ー の 操作 万 法 文字 キー。 キャ ヤ プス キー。 
も ぐら の 穴 は , キー ボー ド の 回 , 回 , 田 , 回, 同 , 回 , 回 , 凶 
の 8 つの キー に ある と 思っ つて こ だ さい 。 この と き , いつ も 大 文字 
表示 で きる よう に CAPS LOCK し て お ここ と 。 
一 市 時 間 が た つと, もう いちど や る どう の きい て ぐる よ 。 思 を 
押す と , も つう 一 朗 で きる 。 思 を 失 す と や めで すき 。 


- 導 習 も ぐら た た き の フ ログ ラム 


19 DEFINT aA-Z 
29 DIM XY(3,8) ,CC ま (8) :COLOR 15,3。3 

39 SCREEN 2,2,9:D=RND(-TIME ) 

49 CLS:OPEN "GRP:" AS #1 

59 FOR 1=9 TO 31 

69 READ A$:B ま =B ま +CHR$(VAL(" &h"+A*) ) 

79 NEXT 1 

89 SPRITE ま (9 )=B ま 

99 DATA 93,93,9F ,99,19,1F ,3F ,33 

199 DATA 3D,3E,3F ,3F , 3F ,3F ,3F 。3F 

119 DATA C9,C9,F9,99,98,F8S,FC,CC 

29 HATA BE。7C。FC,FE、FC,FC FE,F し 

139 FOR 1=1 TO 8:FOR J=9 TO 1:READ XY 
J。T)sNEXT JsNEXI 1 

149 DATA 129,59, 199 , 89 , 149 ,89 ,89 , 119 
159 DATA 129,119,169,119,199,149,149,1 
49 

169 FOR 1=1 TO 8:READ CC* ま (1T):NEXT 

179 DATA 5,R,T,D,F。G6,C,V 

189 FOR 1=1 TO 8:READ XY(3,T):NEXT 

199 DATA 3,5,7,19,12.11 4,2 

299 FOR 1=1 TO 8 

219 C=1 :X=XY(9, 1 ):Y=XY( 1 。1) 

229 TRGLE (X と 7。 サイ) 15 し 

239 PAINT (X+ ア 。Y+7) じじ し 

249 DRAM "BM"+MID ま (STR ま (X+5) ,2)+) 。「+MI 
D ま (STR ま (Y+4) ,2)+"C15”* 

259 PRINT 1 ,CC ま (1 ) 

269 NEXT 1 

279 TIME=9 

289 ON INTERVAL=2999 GOSUB 499 

299 INTERUVAL ON 

399 CT=9 


光 の ペー ジ に 続く 


( 60 ) 


316 AD=RND( 1 )%X8+1 :X=XY(9,AD ) :Y=XY( 1 。AD 
) s: じ も =CC ま (AD ) 

329 FOR T=1 TO 4 

339 PUT SPRITE 9。(X。Y) 。6。9: =6 

349 A ま =INKEY:TF A ま < く >"" OR J=2 THEN 35 
9 ELSE J=J+1 :GOTO 348 

359 ITF =C ま THEN CT=CT+1 :GOUSUB 469:GO 
TU 316 

369 ITF AA まく >"! AND A ま く >C ま THEN CT=CT-1 * 
G0SUB 529:GOTO 319 

379 PUT SPRITE 9,(9,299 ) , 9 ,9:J=9 

389 NEXT 1 

329 GOTO 319 

499 INTERVAL OFF 

419 PUT SPRITE 9,(9,299 ) ,9 

429 DRAM “"BM59 , 189 " :PRINT 持 1 ,。" も うい ちと " や 
り ま すか ?" 中 = ニ INPUT ま ( 1 ) 

439 ITF A ま =" ッ " OR A ま ="Y" THEN CLS:FOR 1 
=1 TO CTsiPUT SPRITE Ti。(9。299) : NEXT GOT 
0 2 

449 ITF A ま ="n" OR A ま ="N" THEN SCREEN 1: 
COLOR 15,4,7:END 

459 GOTO 499 

469 PLAY "L6404CG" 

479 IF CT く <1 THEN RETURN 

489 IF CT<=19 THEN PUT SPRITE 読了 才 間 240 2 
191-18xCT) ,6,9 

429 IF CT>19 THEN PUT SPRITE に が 02 に 1 
フ 1--18X(CT-19) ) 。6。09 

っ 99 IF CT=29 THEN DRAMU "BM59 。59 " :PRINT 
革 1 "マイ リタ " :sGOTO 498 

っ 19 RETURN 

っ 29 IF CT<9 THEN CT=9:RETURN 

3239 PLAY "L3202DD " 

っ 49 PUT SPRITE CT+1 。(9。299) : RETURN 


和光 の ページ に 続く 


柱 拘 造 と 解説 の ワン ポイ ント ・ レ ッ ス ン 


@ ス プラ イト の 色 を 変え る に は 330 行 , 480 行 ,490 行 
スプ ライ ト の 色 は , 色 コ ー ド で 決ま り ま す 。330 行 で 読 月 し まし 
よう 。 
PUT SPRITE の ⑦, (>, y), 6, の 
の , 6 の 数 池 が 色 コ ー ド で す 。 の か ら 15 ま で 変え る と , どん な ご 
と が 起こ る か な 。 だ めし て みよ う 。 
@ 音 を 変え る に は 460 行 , 530 行 
音 は PLAY 文 で 作り ます 。 460 行 は , 当 を つ だ と き の 音 。 530 
行 は 。 は ば れ だ と き の 音 。 ダブ ルフ ォ ー テ ーション の 中 の 文字 や 
数 字 を 変え て み ま レ よう 。 (PLAY 文 の 使い 方 は , 学 感 ユ 
ー ホ ビー シリ ー ズ ⑧「 ま ん が で わか る MS X パ ノコ ン 」 に の っ て 
いま す 。) 
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だ ん ほ どう 


歩道 の ね ご ちゃ ル 


章 II 


@ プ ゲーム の 開 プロ プラ ム を 打ち 込ん だ ら , 回 [UN IETURNI [RETURN|。 
@ ゲ ー ム の 目的 : ほし いも の を に 入れ る に は 多 の 食 険 が と も 
な つこ と は , トー ゼン 覚悟 し は けれ ば な り ま せん 。 も ちろ ん , だ 
だ で サカ ナ を に 入 れ よ うと する ね こち ゃ ん に と つて も 同様 で す 。 

そう な ん で す 。 ね ご ちゃ ん は 道路 の 向こう 側 の サカ ナ を に 入 
れ よ うと し て いる ん で す 。 で も , この 道路 に は 。 あ の お そろ し へ 
い ダ ンプ トラ ッ フ が ひつ きり な し に 走 つて いる か ら 大 変 トラ ッ 
ク の 間 を うま ぐす り ぬ け て 向 こ う 側 に 行か な く て は 。 

サカ ナ は , 10 ぴ びき とる まで は , 道路 は わ だ ウフ づけ ね ば な り ま 
せん 。 な に せ , この ね こち ゃ ん の 家 は , 10 人 家族 で すか ら ね 。 あ 
あ 人 生 つ て だ い へ ん だ な お あ 。 

えっ, な で 9 の 。 ダン プ IS つの っ だ 夫人 で 9 それ は 
イヒ ヒ , すぐ わか り ま す よ … 

@ キ ー の 控 作 万 法 : カー ソル 塊 動 キー。 

を 右 の カー ソル 移動 キー で . ね ご を 和 を 右 に 動か せま す 。 サカ ナ 
の と ころ に 着 こ と , まだ 元 の 場所 に も どり ます 。 


( 69 ) 
支 お うだ ん ほ どう こ 多大 
N 横断 歩道 の チ ね こち ゃ ん の ブロ グラ ム 話 


19 DEFINT a-Z 

29 COULOR 15。4。7 

39 SCREEN 1 ,2:KEY OFF iR=RND( -TIME ) : N=9 
49 FOR 1=9 TO 13 

っ 9 READ DiSOUND Ii,D 

69 NEXT 

DATA 95,13,9.9,9,9,9,62,16,9,9,35,9 


89 ON SPRITE GOSUB 439 
209 X=299:Y=199 : Y1=199 : Y2=199 

199 SPRITE ON 

119 FOR AC=9 TO 2 

129 IF AC=2 AND J=8 AND 1=4 THEN RESTO 
RE 669 

139 FOR 1=9 TO 3 

149 FOR J=9 TO ァ 

159 READ D ま :S ま =S ま +CHR$ ま (VAL(" &h"+D ま ) ) 
169 NEXT J 

179 NEXT 1 

189 SPRITE ま (AC )=S$:S ま ="“ 

129 NEXT AC 

299 LOCATE 8,39:PRINT 上 " : 

219 LOCATE 29,39:PRINT"+ 

229 LOCATE 14,39:PRINT" 1" 

239 1T=STICK(9) 

249 IF =3 THEN X ニ X+4 

259 IF 1=/Z THEN X=Xー4 

269 PUT SPRITE 9,《49,59 ) , 14,2 

279 IF X<59 THEN X=59 

289 IF X>299 THEN X=299 

2Z29 PUT SPRITE 1。(X,59 ) ,19,9 
399 PUT SPRT 導 臣 ? ク (90 。Y ) , 1 。 1 
319 PUT SPRITE 記 3。(119。Y1 )。 1 1 
329 PUT SPRITE 4,(159,Y2) 1 ,1 


の ベー ジ に 続 < 


339 
349 
359 
369 
" 379 
389 


329 


499 
419 
429 
439 
| 49 
459 
469 
479 


489 
2 
っ 99 
39 
p ア 42 
た 12) 
っ 49 


う イ 3 


和光 の ペー ジ に 続く 


に 


(70 ) 


IF X<69 THEN GOSUB 379 
M=INT(RNDC( 1 )%15 ) 

ザー ザー 間 -1.3 ) Y3 ニ ザイ 1ー-NM-11 。Y2= リ 2ーWe45 
GOTO 219 

LOCATE 2,19:PRINT " ヤ ゅ タ ネ " 

N=N+1 :PUT SPRITE _N+5,(299 , 185-ーN※19 


スン 


TF N>9 THEN LOCATE 2。19:PRTNT ネコ ウル し 
END 

FOR 1=9 TO 2999:NEXT 

LOCATE 2,19:PRINT “ 

メ =299 iRKETURN 

SFPKR ま TE OFF 

PUT SPRITE 1.。(9.208) 

EDCATDE 2.5xPRUNI コ 99 の " 
RESTORE 529 

GOTO 569 

DATA 44,7C,FE,82 AA。 AA,22 , じ 6 
DATA 7C,。9F ,9F ,9F ,9F , 1F ,32 22 
DATA 99,99,99,99,99,91,91,91 
DATA 91 ,FD,FF ,FC,FC,FE,9A,9A 
DATA 99,99,9F ,98,98,98,69F ,9F 
DATA 9F,9F,9F ,98,98,9F ,99,99 
DATA 99,99,F9,19,19,19,F9,F9 
DATA F9,F9,F9,19,19,F9,99,99 
FOUR 1=9 「O 13 

READ Di:SOUND IT,D 

NEXT 

DATA 9,9,9,9,9,9,29,55,16.9.9,23,6 


FUR 「=1 TO 329 

PUT SPR1TE @.(18、1 ヨ -1/19)。14.9 
NEXT 「 

SCLREEN 3 

1 ま =INKEY ま :TF IT$< く >" THEN 649 


659 END 
669 DATA 99,99,99,99,91 ,gF , 1F , 33 
679 DATA 1F,9F,99,99,99,99 , 99 ,99 
689 DATA 99,99,99,C9,C2,F6,FE ,FE 
629 DATA FE,F6,C2 , 69 , 99 , 99 , 99 , 99 


査 改造 と 解説 の ワン ポイ ント ・ レ ッ ス ン 


@ ス プラ イト に こく わし こく な ろう …… パ (|…… 260 行 , 290 て 320 行 
380 行 , 440 行 , 610 行 

260 行 一 っ 在 の サカ ナ 

290 行 一 一 っ 生 き て いる ね ご 

300 行 -320 行 - ぁ ダン プ ト ラ ッ フ 

380 行 一 っ み と つ だ サカ ナ 

610 行 一 っ 死 ん だ ね こ 

440 行 の スプ ライ ト は 特別 な 使い で , Y 座 柚 に 208 を 指定 し 
て あり ます 。 この 指定 で スプ ライ ト 敵 巡 の 1 (指定 し 数) 以 
上 の スプ ライ ト 上 の / や ツーン が すべ て 消え ます 。 つま り , 左 の 
サカ ナ 以 外 の スプ ライ ト は 全部 当 え ます 。 と 同時 に 死ん だ ね この 
スプ フィ ト を の の 曽 に みい て いる の で 、 の サカ ナ も 消え ます 。 
SV グ 


(人 02 


、 め ヨイ 


つて と 


2 の の や いい 
0 ン お で 


年 閣 全 


wwn ロ 
上 い 全て 
A6 ょ 6 いい 


占 和 マン 


し ク 』 ー ム の 開始 プロ グラ ム を 打ち 込ん だ ら っ 1 RIUINIIRETURNI。 
@ プ ー ム の 上 8 : いつ が は , 起こ る 起こ る と 言わ れ て い だ 潜 争 が 
つい に ほっ 発し て し まい まし た 。 これ か ら 大 購 の 血 が 輝 さ れる の 


で 9。 と いつ て も 肖 の 中 で で す が 。 
我が国 は 1 国 だ け , 英 は 2 国 で す 。 勝ち 目 は な い の で し よう か 。 
いや , ガ ん ば り ま し よう 。 な ん せ , 敵 は あの ダコ 国 と カー 国 で き 。 
我が国 は , そう で す , イカ 国 で 9。 
タコ は , 混 の 中 を 人 入 左 年 し て いる だ け で すか ら だ いし だ 敵 
で は , あり ませ ん 。 や つつ ける の に は , スミ 1 発 で すみ ます 。 
で も , カー の や つと きだ たら, 右 と 左 ら ハサミ こも うと し て き 
ます 。 こ の / ハ サミ に 煎れ だ ら 我 ガイ カ国 は まけ で す 。 ば や く , ス 
ミ 弾 で ツ コ を 撃ち ら つ こし て し まい まし よう 。 さわ ら ぬ カー に だ だ 
りな し 。 
さて , タコ の 電 合 を どこ まで や つつ けら れる で し よう 。 
@ キ ー の 操作 法 : カー ソル 移動 キー と スペ ー ス キー。 
カー ソル 移動 キー の 左右 で , イカ の 左右 の 移動 が び で きま す 。 
スペ ー ス キー で , イカ の スミ 弾 の 発 午 が でき ます 。 だ だ し 夢 続 


は つ し や 


発 幣 は で きま せん 。 


(729) 


199 
119 
129 
139 
149 
159 
169 
179 
189 
129 
299 
219 
229 
239 
249 
259 
269 
279 
289 
229 
399 
319 
329 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATaA 
DATa 
DATA 
DATA 
DATa 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
OPEN 


19 DEFINT a ぬ -Z 

29 COLOR 15,4,6:SCREEN 2,2 
39 FOR 1=@ TO 4 

49 B ま ="“ 
59 FOR J=1 TO 32:READ A ま :B ま =B ま +CHR ま (VA 
L("&h"+A ま も) ):NEXT J 
69  SPRITE ま (T )=B ま 
79 NEXT 
89 SPRITE ま (5 ) ぅ =B ま ま 
29 SPRITE ま (6 )=B ま ま 


AE,EA,6E,24。AF ,B8,F2,1 ァ 7 
FSS 11 1 13。76 6 。 2F 。86 
YO,37 6。 24 。F。1D。4F ,EB 
8F , 88。8F ,C8, 6E ,9A。F?。91 
AE,EA,6E ,24 AF ,。B8,F2 1 
IF1 13。 76 0 、2F 99 
うつ ょ コア, イ 76。24 ,F ラ 。1D,4F ,E8 
8F , 88,8F ,C8,6E ,94,F9,91 
91 ,93,97。9F ,95。95 9 ,9F 
9F , 9F ,9F ,97,9A,9A。12.12 
89 ,C9 ,E9,F9,A9,A9 ,E9,FBg 
F9,F9 ,F9,E9,59 , 59 , 48,48 
99 , 99 ,99,91 ,91 ,91 91 81 
99 , 99 , 99 , 99 , 99 , 99 , 99 , 99 
99 , 99 , 99 , 99 , 99 。 99 , 99 , 99 
99 , 99 , 99 , 99 , 99 , 99 , 9 ,99 
93.9C,12.19。19,.13。9C。9B 
15,2A 52, 9 の 224,2A。4A4.99 
C9 , 39 , 48 98 ,98,C8 39 , C8 
A4,.52, 49 ,48,54,54 。52 。 99 
BRES AS 1 


DIM UF(2,3) : [し =199: じ し =9 


RESTORE 349 


の ペー ジ に 続く 


339 FOUR 1=1 TO 3:FOR J=9 TO 2kREAD UF( 
情 旨 DIN 選 XX JsINEXTN TI 

349 DATA 1。9.25.1 120 。/ の 9 。 1 , ク ク D , 125 

359 FX=123:FY=174 :MC=9 

369 RX=9 : RY=172 

379 LX=237sLY=172 SF=9 

389 LINE (9,189)-(256, 191 ) 。6,。BF 

329 FOR 『=1 TO 3 

499 PSET( IT※5+35。 126 ) 。 1 

419 DRAM "S29GDFDGDFDG 

429 DRAM "S29GDFD" 

439 NEXT 1 

449 GOUSUB 889 

459 UN INTERVAL=IC GOSUB 899 

69 TIME=59: INTERVAL ON 

79 ON SPRITE GOSUB 699:SPRITE ON 

489 IF STICK(9 )=3 THEN FX=FX+8 

499 1F STICK(9 )=7Z THEN FX=FX-8 

っ PPMT SPRITE 2 (FC、FY)。 15 

っ 19 IF SF=9 AND STRIG(9)=-1 THEN TX=FX 
SEY 二 15SR BEERxSE 三 1 

コク 9 IE SFES く PB THEN PUUU_SPRIHOE SI INYW 
> よっ? 1Yー ニ 1Y ニ 1 る 6 泊 F TY< く 1 TEN SF= ニ 9yPUII ISE 
KUNE SNCGO52OS20。 1 58 

239 INTERUVAL OFF:SPRITE STOP:FOR 1J=1 
US 

549 IF UF(8,1J)=9 THEN 589 

っ 59 UF(1 ,1J)=UF( 1 ,1J)+4XUF( 9 , 1、|) 

269 1E UFYH 1JD ウ 239 6RIUE( 1 1) く 9mENEN 
UF(9, 1J)=UF9。TJ)X※( 一 1 ) 

っ 79 PUT SPRITE TJ+3,(UF(1 。1J) 。UF(2。 エ J) 
82 UES 

589 NEXT:INTERVAL ON:SPRITE ON 

っ 29 GOTO 489 

1 699 SPRITE OFF : INTERVAL STOP 
「 619 SOUND 7,26:SOUND 9.9:SOUND 19,16 


あの ペー ジ に 続く 


SOUND 11.35:SOUND 12,9:SOUND 13,8 
FOUR II=1 TO 199:NEXT II 

SOUND 19,9 

UN SPRIIE 9、20 ツ )。】 3 

IF FX>=LX-16 OR FX く <=RX+16 THEN 73 


IF TY>195 THEN NMF=3:GOTO 629 

IF TY>59 THEN NMF=2 ELSE MF=+1 
PUTF SPRTTE 3FMF 。(9.202) 

UF て 9 ,MF )=9 

MC=MC+1 : IF MC=3 THEN 7Z9 

SPRITE ON:INTERVAL ON:RETURN 
PSET (119,/89)sPRTNT 攻 1。 サール : 
PSET (119,199):PRINT ##1 "オー ハル"ー" 5 
SPRITE_ BFFsTNMTERVAL 9FF 

FOUR 1=1 TO 19999:NEXT:END 
CC=CC+1 :PSET(CCX15,9) ,4:PRINT 持 1。" 


FOR IK=1 TO 3:UF(9,IK)=(-1)^1IK:iNEX 


1C=ICX .65+1:RKETURN 359 
SPRITE OFF:INTERVAL STOP 

L メニ L メ ー1 : KK メニ 民 X+1 

PUT SPRITE 9,(RX。RY ) ,15,9 
PUT SBRMIEEMM(LX,LY) 1.1 
SPRITE ON:INTERVAL ON:RETURN 
TIME=9 

RETURN 


( 82 ) 


べべ 


2 人 ら ( 衣 叶 知 


代 い の 
3 介 っ づつ AnKS 
NAS 
SO ps? 


756 の 
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べ 画 っ 全 で 


KA ん 


yM 


NM 


e の 
グー ブ 


時 
4 
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の 
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2 
プ た 


RNU と 2 
KN の 72 リル 十 


N り と 


全く ルン ジェ ペク へ 電 間 NIIMM 


1 


〆 多 


es 
NY 


の 
レグ 
バン 


代 K 


@ ゾ ー ム の 了 開 始 : プロ グラ ム を 打ち 込ん だ ら , 加 IUINI [RETURN INI [RETURN|。 
@ ゲ ー ム の 目的 : あっ し は , カラ ス 。 きら われ 者 で ご ざん す 。 で も > 
で 9 ね スズ , 村 の 権兵衛 と きた だら, カラ ス の な かま を み ~ー ん な 鉄 


で 撃ち 落 と し て し まつ だ ん で す 。 ん も -。 あっ だ まき だ 。 だ ら 
あっ し 1 羽 権 兵衛 と ころ の リン ゴ を 全部 落と し て や ろう と 
選 つ て 飛ん で きた ん で す が , まだ 槍 兵 衛 が 鉄 介 か つい で や っ て き 
だ ん で す 。 
と いつ だ よう ね ゲー ム の 始ま り で す 。 半 は 。 カ ラス で @。 槍 
拓 生 の 交接 こ あたら な いよ うに , うま く リ ン ゴ を 若 と し て いき ま 
す 。 リン ゴ が 権兵衛 ご あ た る と 高 得 点 で す 。 な る べく 短い 時 間 で 
リン ゴ を 落と し まし よう 。 全部 落と し だら, 得点 が 表示 され ます 。 
言う まで も あり ませ ん が , 鉄 惣 の 玉 は 本 物 で す 。 あ だ れ は 細 
に 死ん で , ゲー ム オ ー バ バー で 9。 
@ キ ー の 操 作 方 法 : カー ソル 移動 キー。 ( 
カラ ス は , 上 下 左右 に 飛べ ます 。 この キー は , カー ソル 移動 キ 
ー で す 。 二 つ お えれ ば な な め に も 行け ます 。 リン ゴ は , カラ ス 
が そこ を 通過 すれ は 自然 落ち ます 。 で も , ひと と ころ に いる と , 
鉄 多 が ね ら つ て き て いだい 目 を み ま す よ 。 


と 権 丘 衛 の プロ グラ ム 上 


19 CLEAR 299 

29 DEF INT A-Z:aAN=19:DC=4 

39 COLOR 15,7,1:SCREEN 2.2.9:D=RKND(-TI 
ME ) 

49 DRAM "S29BM29 , 138C12E19L3E13F13L3F 1 
9L49“ 

59 PAINT (132.89 ) , 12 12 

69 LTINE (193,139)-(135。189 ) ,6。BF 
了 W98 本 ENE (9。189)-(2355。121 )、12。BF 
89 FOR Il=9 TO 4 

99 B ま ="":FOUR 1=1 TO 32:READ ま :B ま = ニ B 中 + じ 
HR ま (VAL(" &h"+A ま ) ) : NEXT 

199 SPRITE$ ま (1 )= ニ B ま 

119 NEXT 

129 DATA 9,9,9,9,9,9,9,9 

139 DATA 9,9,9,9,9,9,9,9 

149 DATA 2C,AA,BE ,2C,88,BE ,FF ,DD 
159 DATA 1C,1C。1C,1C。14。14。.14,14 
169 DATA 9,9,9,9,9E,1F ,33,73 

179 DATA 7F,FF,FF ,1F ,9F ,97,93,9 
189 DATA 9,9,9,9,9,9,F9,FD 

199 DATA FF,FF,FF,FD,F8,F9,9,9 
299 DATA 9,9,9,9,9,9,9F,BF 

219 DATA FF,FF,FF,BF ,1F,9F ,9,9 
229 DATA 9,9,9,99,79,F8,CC,CE 
239 DATA FE,FF,FF ,F8,F9,E9 ,C9,9 
249 DATA 9,9,9,9,9,9,9,9 

259 DATA 9,9,9,9,9,9,9,9 

269 DATA 9,9,9,9,9,89,89,89 

279 DATA 89,89,89,9,9,9,9,9 

289 DATA 93,91,9F ,19.3C。7F。7F 7F 
299 DATA 7F,7F。7F 。7F 。3F , 3F 。9F , 96 
399 DATA 89,89,F9,98,.3C,FE,FE ,FE 


を 光 の ペー ジ に 続く 


で 


319 DATA FA,FE,F6,E6,CC,D8 ,F9, 69 
329 FOUR TI=11 TO AN+19:SPRITE ま (T 1 )=B$ ま : 
NEXT 
339 DIM ST(1.8) 。AD( 25 , 26 ) 
349 OPEN'GRP:" AS #1 
359 FOR 上 =1 TO SiREAD ST(9。I),STX1。1): 
NEXT 
369 DAT の 4 1 一 1 0。 1 1 の 1 。-1 0 
ーー ユ 
う づ 79 CX=1 :CY=1 :CF=2:AF=9 :HX=24 : TIME=9 
389 FOR II=11 TO AN+19 
329 X=RND( 1 )※29+2: Y=RND( 1 )※15+1 
499 FOR エ =-1 TO 1:FOR J=-1 TO 1 
419 IF AD( エ +X,J+Y) く >9 THEN 399 
429 NEXTiNEXT 
439 K=9:FOR J=Y-1 TO Y+1:FOR 1=9 TO 29 
49 IF AD(T,J) く >9 THEN K=K+1 
459 NEXTiNEXT 
469 IF K>2 THEN 399 
479 AD(X,Y)=IIiPUT SPRITE 11,(Xx8+29 , Y 
※8+19 ) ,8, II 
489 NEXT 
上 429 DATA 15。19。16。8。7。19 18。11 9.2.155 
っ の 。/。/ 4 6514 9 
っ 99 A=STICK(9) 
且つ 19 IF A>9 AND A<5 AND CF=1 THEN CF=2: 
PUT SPRITE 1。(9,299 ) 
っ 29 IF A>5 AND CF=2 THEN CF=1:PUT SPRI 
TE 2。(9。299) 
つっ 39 CX=CX+ST(9。A) iCY=CY+ST( 1 ,A) 
っ 49 IF CX>24 THEN CX=24 
つつ 9 IF CX く <9 THEN CX=9 
39 1F IEY232 有 HEN CY=19 
っ 79 IF CY<9 THEN CY=9 
っ 89 IF AF く > 9 THEN 639 


牧 光 の ペー ジ に 続 < 


599 1F CF=2 AND AD(CX+1 ,CY) く >9 THEN AF 

=AD(CX+1 ,CY ) : AY=CY : AX=CX+1 :G0SUB 1929 

699 IF CF=2 AND AD(CX+1 ,CY+1) く >9 THEN 
AF=AD(CX+1 ,CY+1 ) :AY=CY+1 : AX=CX+1 1 50SUB 
1929 

619 IF CF=1 AND AD(CX,CY) く >9 THEN 全 F ニ = 
D(CX,CY ) :AY=CY : AX=CX:GOSUB 1929 

629 IF CF=1 AND AD(CX,CY+1) く >9 THEN AF 
=AD(CX,CY+1 ) : AY=CY+1 : AX=CX:GOSUB 1929 
639 IF AF<>9 THEN GOSUB 829 

649 PUT SPRITE CF ,(CXX8+29 ,CY※8+19),1。 
CF 

659 IF TF<>9 THEN GOSUB ?99:GOTO 599 
669 IF HX=CX THEN GOSUB 759 

679 IF HX-CX>9 THEN HX=HX-1 ELSE HX=HX 
キ 1 

689 PUT SPRITE 9,(HXX8+29 , 1 75) , 19,9 
629 GOTO 599 

799 TY=TY-DC 

19 PUT SPRITE 3,(HXX8+29 ,TY※8+19 ) , 15, 

8 

729 IF (HX=CX OR HX=CX+1 ) AND (CY-1=TY 
OR CY=TY OR CY+1=TY OR CY+2=TY ) THEN 
819 

ィ 739 IF TY<=9 THEN PUT SPRITE 3,(9,2992 ) 
:TF=9 

749 RETURN 

759 TF=1 :TY=29 

769 IF (HX=CX OR HX=CX+1) AND CY>18 TH 

EN 819 

779 SOUND 2,27:SOUND 3,1:SOUND 4,2 ァ ZiSO 
UND 5,1:SOUND 6,31:SOUNDU 7,4 ラ 2 

789 SOUND 8,16:SOUND 9,9:SOUND 19,9:SO 
UND 11,111:SOUND 12,15:SOUND 13,? 

799 PUT SPRITE 3,(HXX8+29 , 18X8+19), 15, 

1 


の ペー ジ に 続く 


899 RETURN 
819 PUT SPRITE 9,(9,299) 

829 PUT SPRITE 3,(9,299) 

839 FOR 1=CY TO 19 

849 PUT SPRITE CF,(CXx8+29 , 1*8+19) , 1 ,C 
F 

859 NEXT 

869 PSET(89 , 199 ) , 12 

879 PRINT ##1 "7"ー ム オー ハー" 5 

889 FOR 1=1 TO 19999:NEXT:END 

899 AY=AY+2 

989 IF (AY=29 OR AY=19) AND (AX=HX) TH 
EN 949 

219 IF AY>29 THEN 989 

929 PUT SPRITE AF,(AXx8+29 , AYx8+19 ) , 8 
AF 

9239 RETURN 

949 D*="":PLAY D ま ,"L64EFEFEFEFE . " 

259 KH=KH+1 :PUT SPRITE AF,(9,299):PUT 
SPRITE 9,(9,209) 

269 HX=24 :AN=AN-1 : IF AN=9 THEN 1939 
279 AF=9:RETURN 

289 PUT SPRITE AF,(9,209) 

299 PLAY D* ま , "Le4EF" 

1999 AN=AN-1 : IF AN=9 THEN 1939 

1919 AF=9:RETURN 
1926 AD(AX,AY)=9:RETURN 639 に 
1939 PSET(199, 89 ) ,12:PRINT #1, "ヤッ タネ ": 
1949 PSET(199,199 ) , 12:PRINT #1,STR$(IN 
T(19999-TIME+KHx5999 ) ) : "テン ": べ 

1959 FOR 1=1 TO 19996:NEXT 


( 94 ) 


まい ぞう 


ーー っ 
ご に < 


63 で 会 


は や 
居 全 


放さ / 
JUAN ん とう っ う 


に 


+6 い の 


0 SR AIAVAPP た 3 
J 選 の を 4 NM / 
NN / 


2 いっ の 1 % N 


NOKOEN あ の 
つの を っ 


Mil 


| 
il | ll 
ii IN 
唱 


す で C の ぶさ ふさ 


3 40 
て 7Y うぷ で 


図 居 
ふう 
ココ 


CA 


(102) 


ゝ ぞう きん 


埋蔵 金 を さ が せ 


@ ジ ー ム の 半 : フロ グラ ム を 打ち 込ん だ ら , 回 U RETURN。 
@ プ ゲー ム の 自 的 : あお 金 が 空 か ら 降 つ て これ ば な あ …- と 上 を 向 
いて いて も , 落ち て こる も の と いえ ば , トリ の 着 と し 物 が いい と 
ご ろ 。 移 力 し お いで 大 金 を に 入れ る の は 。 む づか し いも の で す 。 
そこ で 今日 は あ ね だ を 電 人 所 り 出し ツア ー に ご 招待 し まし 
よう 。 つる は し 1 本 で 世 り 出せ る 大 金 の L。 C… と いい こと ず < 
め の 租 に は ,。 な に の ある も の で す 。) 
あ , 言い わす れ ま し だ 。 もう 一 つ 楽 し いこ と も ある ん で きよ 。 
9 0 が 
よ 。 爆 笛 も 一緒 に 埋まっ て いる ん で すら ね 。 
0W8GCpg の その うち 自問 に 消え て し まい ます 。 
よく 記 欄 し て か ら 掘 り は じ め ま し よう 。 宝 を ら つ り あて る と , 
淡 の 苗 へ 進み ます 。 宝 1 つ で 100 偽 由 で す よ 。 あお だ は どれ 
だ け 大 金持ち に お れる が 楽し み で す 4 ね 3。 あ , そう そう , だ ん だ ん 
進 いで いこ と , 地図 に な いと ころ に 召 常 が か これ て いる こと も あ 
る と いう , と つて お き の 情 報 を 教え て お きま し よう 。 
@ キ ー の 操作 法 カー ン ル 移動 キー。 
掘る 人 の 上 下 を 右 の 動き は カ ー ソ ル 移 動 キ ー で で きま す 。 た 
だ 痢 し つづ け て いる と , 行き だ なく な い と ころ まで 避 い で いっ て し 
まう か ら 注 意 し まし よう 。 


、 埋蔵 涯 を さか せ の ブロ グラ ム 


19 COLOR 15,4,7:SCREEN 2,2。9:KEY OFF 
29 OPEN "GRP: * AS #1 

39 FOR AC=9 TO 2 

49 FOR 1=9 TO 3 

っ 9 FOR J=9 TO ァ r 

69 READ D ま : 人 まこ A ま +CHR ま (VAL(" &h "+D$) ) 
肖 給 NENI 、| 。』 

G9 SPRITE ま (AC )=A ま 

29 ="“ 

199 NEXT aC 

119 1=9:X=208: Y=34 :K=9 

129 FOR 1=9 TO 2+L 

139 XX=RND(-TIME )%X15\1 : YY=RND( 1 )*5\1 
149 IF XX=9 AND YY=9 THEN 139 

159 X1(T )=XX※16:Y1( 1 )=KX16+59 

169 K=K+3: ITF K>7 THEN K=9 

還 叶 ESERITEE ON21 CM14T)。Y1(TD)。4。1 
189 NEXT 1 

129 FOR 1=9 TO 5 

2Z99 XX=RND( 1 )x15\1 : YY=RND( 1 )*x5\1 

219 IF XX=9 AND YY=9 THEN 299 

220 X2( ]T )= ニ XX※16:Y2( 1 )=Kx16+59 

239 FOR H=9 TO 2+L 

Z49 ITF X1(H)=X2( 1 ) AND Y1(H)=Y2 て (1 ) THE 
N 299 

2Z59 NEXT H 

269 K=K+2: TF K>7Z THEN K=9 

2Z79 FOUR J=9 TO 1I-1 

289 IF T=9 THEN 399 

2Z29 IF X2(J)=X2( 1T) AND Y2(J)=Y2(1) THE 
N 299 

399 NEXT J 

AO PUI SMRETE 、T115。/(X2( 1)。W2000)。e。 ル 
329 NEXT 1 


光 の ペー ジ に 続く 


(104 ) 


FOR 1=9 TO 4999-LX299:NEXT 
LINE (9,59 )-(255, 191 ) ,6。BF 
SPRITE ON 

S=STICKK(9 ) 

IF S=1 THEN Y=Y-16 

IF 5S=3 THEN X=X+16 

IF S=5.THEN Y=Y+16 

IF 5S=7/Z THEN X= ニ メー16 

IF X<9 THEN X=@ 

IF X>249 THEN X=249 

IF Y<34 THEN Y=34 

EE Y2162 THEN Y=162 

FOR 1=9 TO 2 ォ L 

IF X=X1(1T) AND Y=Y1(T) THEN 829 
NEXT 

FOR 1=@ TO 5 

IF X=X2(1) AND Y=Y2( 1 ) THEN 799 
NEXT 

IF POINT (X,Y+15) く >6 THEN 569 
FOR JJ=Y TO Y+15 

FOR 1T=X TO X+15 

FPSETt 1T。JJ) 4 

MEKD まま JJ 

PUT SPRITE 9。(X。Y)。1.69 

GOTO 369 

DATA 94,98,19,39,48,44,83,91 
DATA 91,99,99,99.,99,99 ,99,99 
DATA 99,39,78, 78,39 , 89 , 88 , 19 
DATA A9,C8,18,18,24,24,24,24 
DATA 99,99,99,99,9F,1F,3F ,7F 
DATA 3F,1F ,9F ,99,99,99 ,99,99 
DATA 99,99,99,99,F6,F6,FE,FE 
DATA FE,F6,F6,99,99,99,99,99 
DATA 99,99,99,99,99,97,94,94 
DATA 94,9F ,99,99,1F ,12.12,1F 
DATA 99,99,99 , 99 , 99 , 89 , 89 , 89 


の ベー ジ に 続く 


( 105) 


699 DATA 89,E9,29,29,F8,48,48,F8 
799 T1=T1+199 

?19 LINE (19,19)-STEP(39 , 1 ) , 4 , BF 
?29 DRAM "BM19,19":PRINT #1。T1 

?39 LINE (X,Y)-STEP(15,15) ,4,BF 

?749 PLAY "CEGEC" 

?Z59 1F PLAY(1) THEN ?59 

ィ 69 X2(1 )=9:Y2(1 )=9 

?79 FOR 1=9 TO 5 

789 IF X2(I) く <>9 OR Y2(1I)<>9 THEN 569 
?99 NEXT 1 

899 PUT SPRITE 9,(249,34 ) , 1 ,9 

819 CLS:L=L+1:GOTO 119 

829 LINE(X,Y)-STEP( 15, 15) ,4,BF 

839 FOR I=9 TO 13 

849 READ SO:SOUND 1,SO 

859 NEXT 

869 DATA 111,2,24,9,9,9,29,55,16,9,9,2 
39 , 69 , 9 

879 DRAM "BM299 ,19":PRINT #1,"OHI" 
889 FOR 1I=9 TO 1999:NEXT 

899 LINE (9,59)-(255, 191 ) ,,BF 

299 FOR 1=9 TO 2999:NEXT 

919 PUT SPRITE 9,(2,208),2,1 

9229 SCREEN 9:LOCATE 19,19 

9239 PRINT "アナ タ ノ トク テン "3T1 

9249 FOR 1=1 TO 2999:NEXT 

259 COLOR 15,4,?:SCREEN 1 

969 1 ま =INKEY ま :TF 1 まく <>"" THEN 969 

279 END < 


Am の を 愉 の を 


ヨリ ワン ぃ @" 


わあ ああ ああ !! 


(109) 


(110) 


し いて で 


ア ) 


し 


@ ゾ ー ム の 開始 2 の ラム を 打ち 込ん だ ら , 還 【UINI RETURN]。 
@ ゲ ー ム の 目的 : ご は , エジプト で す 。 エジプト と ぐれ ば ビラ 


ミツ ド 。 これ ジョ ー シ キ 。 ピラ ミッ ド と これ ば 凡 守 。 ご れ も ジ ョ 
ー シ キ 。 財 宇 と これ ば ! ドロ ボー。 これ ショ ー ジ キ 。 だ か ら , ト 
ー ゼ ン , あ G だ は ピラ ミッ ド の 肢 生 ドロ ボー で す 。 
さて ご エジプト は 場 示 の , 古代 ファ ラマ カモ チャ 王国 の 
ビラ ミッ ド は 部 で o つ 。 その 6 つの ピラ ミッ ド の - 療 上 の 剛 に 
肢 科 が か ぐさ れ て いま す 。 この 宝 を だ まっ て 受け と り に 行き だ い 
の で す が , だ まつ て と らし て くれ な い の が , ピラ ミッ ド を 圭 る , 
吾 へ ビ と サソリ だ ち で す 。 こい つら に ちよ っ と で も 角 れ だら, 即 
序 お だ ぶつ で す 。 さあ , ーー 
で 登り まし よう 。1 登る ご と に 月 が の だ お いて , 全部 に 登 
と , ちよ うど 朝日 が さす という 法 で す 。 
@ キ ー の 操作 万 法 : カー ソル 移動 キー。 ・ 
ビラ ミッ ド を 登る 人 間 を 動か みす の は カー ソル 秘 動 キー で す 。 
上 下 和 を 右 に 動け ます 。 ピラ ミッ ド に 入 つ て し まう と , 左右 に は ず 
れる こと は で きま せん 。 


ON SPRITE GOSUB 1949 

DEF INT A-Z:OPEN “GRP:′ AS 間 1 
SCREEN 2,2,9:COLOR 15,1 1:CLS 
1=39 : J ニ 156 :K=299 : XX メニ 39 : YY=154 : KK=19 
X1 ニ 1 29・X2= ニ 1 29 : X3=1 29 : X4 ニ 1 29 : X ユ = ニ 1 2 の 
し = ク 2 
SPRITE ON 
INE (9.180)-(255.192) 2.BF 
FOR AC=9 TO 3 

FOUR =9 TO 3 

FOR J=@ TO 7 

READ D ま :A ま = 人 ま +CHR 和 (VAL(" &h"+D ま ) ) 
NEXT J,1 

SPR ITE ま (AaC )= ニ 馬主 

A ま =" 

NEXT _AC 

G0SUB 869 

LINE (139,39 )-(259 , 159 ) 

LINE -(109。1509 ) 

LINE -(139,39 ) 

LINE (39,139 )-(239 , 139 ) 

LINE (59,119)-(219,119) 

LINE (7Z9,929)-(1929,29 ) 

LINE (29,79)-(179。79) 

LINE (119,59 )-( 159 , う 9 ) 

PUT SPRITE 7Z,。(KK, 19 ) ,19,3 
1=STICKC(9 ) 

幸 E 1=1 『HEN YY=YY-L 

IF 1=3 THEN XX メニ メ X+L 

IF 1=5 THEN YY=YY+L 

IF 1=/Z THEN メメ ニ メ メ ー レ し 

IF YY>159 THEN YY=159』 

IF YY>139 THEN GOSUB 649 


光 の ベ ページ に 続く 


(114 ) 
IF YY<131 AND YY>119 THEN GOUSUB 6 ァ 


IF YY<111 AND YY>929 THEN GOSUB 799 
IF YY く <21 AND YY>Z9 THEN GOSUB 739 
IF YY<7Z1 AND YY>59 THEN GOSUB 769 
IF YY<S1 AND YY>39 THEN GOSUB 799 
IF YY<39 THEN GOSUB 929 
PUT SPRIIE 9、 (XX YY ) 2 
X1 ニ =X1+L iTF X1>239 THEN X1=39 
PUT SPRITE 1,(X1。139 ) , 6,9 
X フ 2 ニ メ ク グー グ 』 TF X2 く 39 THEN X2=219 
PUT SPRITE フッ (メグ 。119)。4 1 
X づ = ニ X づ ーL ・TF X3 く 79 THEN X3=199 
PUT SPRTTE き は 。(X3.96 ) 。4 。1 
X4 ニ X4+2 ょ TF X4>175 THEN X4=89 
PUT SPRITE 4,(X4,7Z9),6.9 
X つ =X 〇 +1 : IF XS5>155 THEN X5=199 
PUT SPRITE 5。(X5、59) 。6。6 
GOTO 27@ 
DATA 99,99,99,98,98,9A,9C,98 
DATA 19,29,41 47。5F ,。 7F ,91 ,99 
DATA 99,99,99,99,99,92,94,9a 
MATN 41、29.F7。FB。CS,EB FC ,FS 
DATA 99,99,99,99,FC,9E,A3,E3 
DATA 93,96,9C, 18,39 , 38, 1F 。 1F 
DATA 9g9,99,99,99,99,99,99 ,99 
DATA 93,96,9E,9C,1C,18。F8,F8 
DATA 97Z,97。97。97,93,93。1F ,13 
DATA 13,13,93,97,92。91 ,99,97 
DATA 89,89,89,89,99 ,F8,98,99 

! DATA 99,89,49,29, 39 , 19,88,98 

| IF XX く 19 THEN XX=19 
IF XX>249 THEN XX=249 
RETURN 
IF XX く 39 THEN XX=39 
IF XX>229 THEN XX=229 


光 の ペー ジ に 続く 


(115 ) 


RETURN 
IF XX<59 THEN XX=5@ 
IF XX>299 THEN XX=299 
RETURN 
TF XX<79 THEN XX=79 
IF XX>189 THEN XX=189 
RETURN 
IF XX<99 THEN XX=99 
IF XX>169 THEN XX=169 
RETURN 
IF XX<119 THEN XX=119 
IF XX>149 THEN XX=149 
RETURN 
DATA 99,96,9C,9C,1C,1C,18,18 
DATA 18,18,98,0C,97,93,99 ,99 
DATA 99,99,99,99,99,99,99,99 
859 DATA 99,99,99,94,9C,F8,F9, 89 
869 RESTORE 919 
879 FOR 1=9 TO 13 
889 READ D:SOUND 1,D 
899 NEXT 
9299 RETURN 
919 DATA 39,9,9,9,9,9,9,62,16,9,9,193, 
44,8 
920 PLAY "V126+GEG+* 
939 XX=19:YY=159 
949 FOR 1=9 TO 599:NEXT 
959 KK=KK+29 
9269 PUT SPRITE ?,(KK,19),19,3 
979 FOR 1=9 TO 5999 :NEXT 
989 KK=KK+29 
9299 PUT SPRITE ?,(KK,19) ,19,3 
1999 IF KK>239 THEN 1999 
1919 GOSUB 869 
1920 し =L+1 
1939 RETURN 


の ペー ジ に 続く 


(116) 


1949 PLAY "V12S12M1999L2DR32L4DR32DR32 
DR2FEEDL2DL4D-D" 

1859 DRAM "BM199,18" 

1969 PRINT #1。"GAME OVER" 

1879 IF PLAYK(1) THEN 1979 

1889 GOTO 1129 

1999 LINE(9,9)-(255, 154 ) , 1 1 ,BF 
1199 PLAY"V12S11M5999FCFAF " 

1119 CLOSE #1 

1129 FOR 1=9 TO 1999:NEXT 

1139 1 ま =INKEY ま : IF 1 まく >"" THEN 1139 
1149 COLOR 15,4,?:SCREEN 1 

1159 END 


査 改造 と 解説 の ワン ポイ ント ・ レ ッ ス ン 


@ 人 回 の 歩く 速 さ を 決め て いる の は ……… 
60 行 の し = ら の 2 を 大 き な 数 に する と , 速 ご 歩け ま す 。 


@ 人 問 , ヘビ , サソリ を 出し て いる の は ……400 一 500 行 
上 の 3 種類 スプ ライ ト で 動か し て いま す 。 ご の 行 の 数 字 を 変 
えて スプ ライ ト の 動 強 を し て こ だ さい 。 
まだ , 月 も スプ ライ ト で す 。 960 行 と 990 行 で 動 ひ し て いま す 。 
な ば ら 行 分 ある の 考え て みて ぐだ さい 。 


(117 ) を 
激 ( 舌 八 07/ ゲ ク 

NM // 記 

ト 電 


/ ンク 
グ ング ジ ク ンク クラ 
N グ 2 
N NN N N、 レン ググ ンジ ク 
N N 人 ( 
N 2 
N グ 
\ N / 4 5 ク 
ン 
N 6 


< 


る 


@ ゲ ー ム の 開始 : フロ ブラム を 打ち 込ん だ ら , IINI [RETURN。 
@ ゲ プー ム の 目的 : 運転 免許 の な いみ ん な ね 。 そん な も の 持つ て ぬく ぐ 
て も だ いじ よう ぶ 。 この ゲー ム さ えす れ ぱ , 震 も カー デー レー ヌ が 休 
肉 で きる よ 。 それ も と こび きり ス ピー ド を 出し て の カー レー ズ さ 。 
書 の 白い 車 は どの 車 よ り も 速 ご 設計 され て いる 。 だ が ら , es 
ん どん 他 の 赤い 車 を 追い 越し て い ご 。 も ちろ ん , いこ ら 追 い 越 
だ っ つて だ いじ よう 5 な に せ レ ー ス だ ガ ら , あたり 前 。 で も ね , 
そこ ご に 落と し 穴 が ある わけ 。 他 の 赤い 車 は , みん な 共謀 し て , 体 
当 だ り を ガ け て , 娠 の 車 を じゃ まし に こる の さ 。 そう は させ じ と こと 
Es 前 へ 後 へ (後ろ は ちよ つと ムリ だ けど , スピ ー ド は 少 
し 落ち る )。 
走行 ゴ 距 離 は , 100 m 単位 で 表示 され る か ら 注目 し よう 。 な ん て 
いつ て 見 て いる と , ガ シ ャ ー ン と 大 事故 まあ, そん な こと に な 
ら な いよ うに , が ん ば つて や ろう ね 。 


そう さ ほう ほう 


@ キ ー の 肖 作 法 : カー ン ) し 移動 キ ー。 
自動 車 を 追い 越し 単線 こい れる と き は … カ ー ソ ルキ ー の 人 
も と に も どす と き ぎ は 人 人 (1868 力 ー ソ ルキ ー の [ 
スピ ー ド を 上 げ る と き は S の 061 aisHat eiSiG ょ ei カー ソル キー の 品 


スピ ー ド を 下げ る と き は AD IO カー ソル キー の 日 


119 
129 
139 
149 
159 
169 
179 
189 
129 
299 
219 
229 
239 
249 
2 っ 9 
269 
Z79 
289 
2929 
デジ ジウ 
399 
319 
329 


DEFINT -Z 


EOLOR 15。4。7:SCREEN 2。2。9:KEY OFF 
DPEN "GRP:" AS #1 

ON INTERVAL=5※69 GOSUB 829 

FOUR TI=9 TO 13 

READ SO:SOUND 1,SO 

NEXT 

DATA 25,4。9,9,9,9,9,62。16,9,9,35,9, 


メニ 59 : Y=29 :X1=89 : Y1=2 ぼ 9 
メ 2 ニ 1 1 9 : Y2=35 : X3=1 99 : Y3=29 

X4 ニ = ニア 9 :Y4 ニ 409 : X5=229 : Y5=4 ぼ 
X6=75:Y6=139 :X7=119:Y7 ア =139 

X8= ニ 29:Y8=159 :X9=189:Y9=179 
XX=159 : YY=1095:F=20 : XA=189 : YAa=89 
XB ニ 89 : YB=199 :F2=29:LEVEL=5 

FOR AaAC=9 TO 1 

FOR _T=9 TO 3 

FOUR J=9 TO ァ 

READ D ま :a ま =A も +CHR ま (VAL("&H"+D ま も ) ) 
NEX「 J,I 

SPRT TE も (AC )=A ま ま 

PWR 

NEXT _aAC 

ODN SPRITE GOSUB 699 

SPRITE ON: INTERUVAL UN 

LINE (9,89 )-(256 る 。89 ) 

LINE (9,199 )-(256。198 ) 

LINE (9,126)-(256, 128 ) 

PSET( 169,184 ) , 4 

PRINT 提 1 "まき ょ り : 9m* 
1=STICK(B) 

1F 1=1 THEN YY=Y ヤ Y-5 

ITF 上 =3 THEN XX= ニ XX+2 


あの ペー ジ に 続く 


( 125) 


339 
349 
359 
36 ぼ 9 
379 
389 
329 


1=5 THEN YY=YY+5 
1T=/ THEN XX メニ メメ ー ク 
XX>249 THEN X メ =249 
XX く 199 THEN XX=199 
YY< く 7Z5 THEN YY=Z5 
YY>199 THEN YY=198 


X=X+F : X1=X1+F : X2=X2+F : X3=X3+F : X4=X 
4+F : X5=X5+F : X6=X6+F : X ア = ニ X イ +F : XB=X8+F : X9 


=X9+F 


99 
419 
29 
39 
49 
459 
69 
79 
489 
99 
っ 99 
う 1 ぼ 9 
っ 29 
839 
っ 49 
pp12) 
っ 69 
つう 79 
っ 89 
つう 29 
699 
619 
629 
639 
649 
659 
669 


BMT SPRETIE 10(X、Y) うう 。1 

EMI SPRIIE 11 て X1 73) 2、1 
PU SPRETE 42 人 (X2。Y2)。2 1 
RUT SFPRITE 13 (8.Y3) 2。1 
FEUT] SPRITE 14.(XA。YA)、2。1 
MI SPKETE 15.(0⑤.Y う ) 2。 1 
PU SERLTE 16。(X6。Y6 う と 。1 
RUN SFRIIE 117/、 7 チリ) 2 
EUI SPRjTIE 18(X8。 YS) と 当 
UN SPRKI IE 1 の ルター タダ 
PUT SPRITE 9 の (XX。YY),15.9 
J=J+1 : IF J>49 THEN J=9 

IF J=1 THEN YA=YA-F2 

IF J=15 THEN YA=Ya+F2 

X 全 ニ XA+LEVEL 

PUT SPRITE 1.(XA。YA).8,。9 

IF J=19 THEN YB=YB-F3 

IF J=18 THEN YB=YB+F3 
XB=XB+LEVEL 

PUT SPRITE 2。(XB。YB) 8,9 
GOUTO 399 

DATA 99,99,99,99 ,99 ,99 ,99,9Z 
1A- 9F。 13 13。7F 7 ト 7F 7F 9C 
DATA 99,99,99,99,99,99 ,99,FBg 
DATA F8,FC,FC,FE,FE,FE ,FE ,39 
DATA 99,99,91 ,93,97,97/,9F ,9F 


DATA 1F,1F ,3F 。3F ,93,93。93,93 


生 光 の ペー ジ に 続 < 


(126 ) 


679 DATA 99,99,99,89 , 89 ,C9 ,C9 ,E9 

689 DAaTA E9,E9,F9,F9,99,99 , 99 , 99 

629 SPRITE OFF:INTERUVAL OFF 

799 FOR 1=9 TO 13 

19 READ S0:SOUND iT,S0 

29 NEXT 

739 DATA 9.9.9,9,9,9,29,55,16,9,9,15 ぼ 6, 
69 ,2 

49 SCREEN 9: COLOR 8,.8,.8:FOR 1=9 TO 1 
599 NEXT 

OBOILOR 15.4 SBREENI 1 

769 FOR 1=1 TO 59sPRINT "LU" こ ! "5 

779 PRINT" "3 NEXT 

789 PRTINT "アン セ " ン ウン テン シテ ネ " 

7 の 9 PRINT “まき ょ り は "5KI? "m て "し た 。" 

899 1 ま =INKEY ま : ITF 1 まく >"" THEN 899 

819 END 

829 KITI 提 =KT#+1909 


839 LINE(122、184)-(201 191).M.BE 

849 PSET(192.,184 ) ,4:PRINT #1 USING" 拉 拓 
拉 提 坦 " 』K1 間 

859 RETURN 


@ い だ ずら プロ プラ ムー その ① 


29 VPOKE BASE(6)+6。&H19 
39 VPOKE BASE(6)+,&H19 
49 UPOKE BASE(6)+8,&H19 
59 VPOKE BASE(6)+9。&H19 
69 FOR 1=19 TO 86 

9 _ PRINT 1s 

89 NEXT 1 


さあ , 数 字 や 文字 の 色 ガ 変わ つた ね 。 


@⑱ い だ ば ざら プロ グラ ムー その @② 


39 VPOKE BASE て Z)+N ,&HFF 
49 NEXT N 

っ 9 FOR 1=19 TO 86 

69 PRINT 【: 

79 NEXT 1 


ご こんど は , 数 字 が 出 て こない 。 
売 選 吉 どす は,。 SCREEN 汗 と 入 訪 


面 を 作り だ し て いま 9 す o 


が めん 19 


@BASE 


つか が めん 


19 COLOR 15,5.8:SCREEN 1 


2lo 電 9 に 民 。 OREEN1 入力 しそ て ダー。 


19 COLOR 15,5,8:SCREEN 1 
2Z9 FOR N=&H39※8 TU &H39※8+ ァ 


F の ら つ の プロ グラ ム で 使わ れ て いる 二 つ の 命令 が , 変わ っ た 遇 


7 ポジ ウ フキ 必 な が ょ ほう ば し ょ 
人 @VPOKEー 一 VRAM と いう 画面 の 情報 を 入れ る 場所 に , デ 
か こ めい れい 
ー タ を 書き 込む だ め の 命 令 。 


隔 一 2 


めい れい ネ まう い 
上 の 2 つの 病 令 は , 不用 意 に 使う と , 画 下 


び で だ ら め に な り ま 


す 。 よ ぐ 得 強し て 使う よう に し まし よう 。 


@ い だ ずら プロ グラ ムー その ③ 
入力 し だ ら , |RIIUIINIIRETURN 


COLUR 15。7。/:SCREEN ご 

VD=BASE て 19 ):VC=BASE(11 ):VP=BASE( 12 ) 
FOR Aa=@ TO 3 

FOR 1=VP+AX8 TO UP+AX8+ ア 
READ D ま :D=VAL(" &H"+D ま ) 
VPOKE IT,D 

NEXT [ね 

DATA 99,99,69,61 ,69,69 ,69,69 
DATA 99,96,39 ,FC,39 , 39 , 39 , 39 
DATA 69,69,69,61 ,61 ,79 ,29,99 
DATA 39。39 ,FC,B4 ,B9 ,E9 ,99,99 
FOUR A=9 TO 3 

FOUR 1=VC+TA※S TO UL+AX8+ ア 
VPOKE LT,&H1F 

NEXT TL,a 

FOR A=9 TO 3 

FOR X=9 TO 31 STEP 2 

VPOUKE _VU+X+A※64 9 

VPOKE VD+X+1+A※64 。 1 

VPOKE _VDU+X+32+A※64 。2 

VPOKE _VD+X+1+32+A※64 3 

NEXT XX 

FOR 1「=1 TO 2999 :NEXT T 
EOLOR 1 4 7SSUKEEN 1 

END 


ご の プロ グラ ム に は 牧 紅 が いつ ば ぱい か くさ れ て いる ん だ よ 。 
で 分 析 し て ご らん 。 


(130) 


P。 
タ 
の 
ジン 2 
し 
で 


ーー 


AX 


(132) 


2 


あ そ 


5 


(134) 


SS や 衝 交 で 


@ プ ー ム の 開始 フロ ラム を Xu だ ら 。 III N IRETORT。 
@ プ ゲー ム の 還付 : 黒い 躍 を さけ な が ら , 宝 (⑧) を 全部 と っ て いこ 
ゲー ム 。 

世の中 に は , か べ と いう も の ガ あ り ま す 。 どう し て も 越え られ ' 

な い ガ ベ 。 だ が , この が べ が 自 人 で 作っ だ が べ だ と し た ら 2 9 

この ゲー ム ハ は , $ の 宝 を カー ソル を 動 グ の し て と つて いき ます 。 
黒い 中 は この カー ソル に せま っ て きま す 。 これ に ふれ た だら, ゲー 
ム オ ーー。 うま べ ぐ 逃げ な が ら 宝 を と つて いき まし よう 。 

ご さて, これ か ら が 大 変 で す 。 カ ー ソ ル な を 動か す と 後に どんど ん 
ベガ で きま す 。 ご の が べ は 。 作っ だ カー ー ソ ノル 自 鼻 吉 え る こと は 
で きま せん 。 自分 で 自分 を か こん で し まう と ,。 も う 外 に は 出 られ 
ず , 黒い 中 が は まる の を 待つ の み で 9。 

CNS カー ソル 移動 キー。 
ー ソ ル は , カー ー ソ リル 考 キー で 動 み し ます 。 そ の 雷 を 全 
Cs と 自動 89 に 次 の 面 が 出 て き て , 前 の 富 の 最後 の カー ソル 
の 位置 か ら 動き は じ め ます 。 
@ 洛 得点 の あげ : 失 吉 は 近 を と る まで の 時 間 に 関係 し ます 。 な 
べ ご は や こ ご 案 を と つて いき まし よう 。 


か べ か ベ ゲー ム の ブロ グラ ム 


19 DEFINT A-Z:KEY OFF 

29 COLOR 15,4,4:SCREEN 2,9 

39 DIM DT(29, 29 ) , SK( 1 , 8 ) 

49 FOR 1=1 TO 8:READ ま :B ま =B ま +CHR ま ( VAL 
("&h"+A ま ) ) : NEXT 

59 SPRITE ま ( 1 )=B ま 

69 SPRTITE ま (9 )=STR TING ま ( 1 , 255 ) ] 
79 DATA Aa5, 66,FF , 3C,3C,FF , 66 。A5 

89 OPEN "GRP:" AS #1:D=RND(-TIME ) : TIME 
=9 

29 ON SPRITE GOSUB 529:SPRITE ON 

199 ON STOP GOSUB 529:STOP ON 

119 UN INTERUVAL=65999! GOSUB 529 

129 FOR 1=1 TO 8ziREAD ST(9,1 ),STK(1,1 ) : 
NEXT 1 

貞和 AT 1。1 1。1 9 。1 。1。9。1。-1。-1 。ー 
1 ,9,-1 ,1 

149 BX=238: BY=168 : BZ=8 :HX=1 :HY=1 

59 CT=CT ほ 1 

69ETNE 15。15)-(247。175) ,2。BF 

179 ERASE DT:DIM DT(29,28 ) 

189 FOR 1=1 TO CT+2 

199 X=RNDK( 1 )*26+2 :Y=RND( 1 )x29+1 

299 IF DT(X,Y)<>9 THEN 199 

219 DT(X,Y)=9:PSET (Xx8+8,Yx8+9 ) ,2:PRTI 
本 還 。 才 1 、 邊 「? 

229 NEXT 1 

239 NN=CT+2 
249 PSET(199,5) ,4:PRINT #1 "が へ" カーム "5 “ 
259 TIME=9 | 
269 GOSUB 33@ 
279 GOSUB 419 

289 IF NN<>9 THEN 269 

299 TT!=1999-TIME+TT!+69xCT 


の ペー ジ に 続く 


< 


に 2 


399 LINE (199,189)-(255,188 ) , 4 ,BF 
319 PSET(199,189),4:PRINT #1.STR ま (CT+1 
3" ウッ 3SIR ま CTTI う な * 弧 ツ 5 

329 GOTO 159 

339 D=RND( 1 )*199: IF D>79 THEN GOSUB 55 
9:GOTO 359 

349 BX=BX+ST(9,BZ )x8:BY=BY+ST( 1 , BZ )※8 
359 IF BX>245 THEN BX=BXー8 

369 IF BX く 15 THEN BX=BX+8 

379 IF BY>174 THEN BY=BY-8 

389 IF BY く <15 THEN BY=BY+8 

399 PUT SPRITE 1,(BX,BY),1 1 

499 RETURN 

419 HZ=STICK( 9 ) :KX=HX : KY=HY 

429 HX=HX+ST(9,HZ) :HY=HY+ST( 1 ,HZ ) 

439 IF HX く 1 THEN HX=1 

449 IF HX>29 THEN HX=29 

459 IF HY く 1 THEN HY=1 

469 IF HY>29 THEN HY=29 

479 IF DTCHX,HY )=1 THEN HX=KX:HY=KY 
489 PUT SPRITE 9,(HXX8+8 ,HYX8+?) ,8,9 
499 IF DTCHX,HY )=9 THEN BEEP : NN=NN-1 
99 DT(HX,HY )=1 : IF HX く >KX OR HY く > KY 
THEN LINE (KXx8+8 ,KYX8+8 )-(KXX8+15,KY※ 
8 よ 15).15。BE 

519 RETURN 

529 DRAM"BM189,199":COLOR 1:PRINT 析 は すり 
か ドー ム オー ハー" 

539 STOP OFF:SPRITE OFF 

紀 49 FOR 1=1 TO 6999:NEXT 1:SCREEN 1:CO 
伯 加 RB ひだ 7Z6 入 NB 

559 FX=SGN( HX-BX/8 ) :FY=SGN(HY-BY/8 ) 
569 FOR 1=1 TO 8:IF ST(9,1)=FX AND ST 
T.。T)=FY HIEN BZ=! 
579 NEXT IiRETURN 


人 光 の ペー ジ に 続く 


(137) 


査 改造 と 解説 の ワン ポイ ント ・ レ ッ ス ン 


@ に こ だ ら し い 黒 い 虫 の 動き は 330 行 一 400 行 
550 行 < て 570 行 
国 は 390 人 の スプ ライ ト で 表示 し て いま す 。 ご の 中 の 位置 は BX 
と BY で 決ま り ま す が , その 仁 は カー ー ソ ル の 位 午 と 関 孫 し て いま 
す 。 上 の ほか の 行 が それ で 9。 330 行 の IF の 後 の 不 夫 の 向き を 
遂に し て D<70 と する と , 中 の 動き は どう 変 わる で し よう 。 
だ めし て み ま し よう 。 


へ い きん だい 


品 稀 合 め タ ジグ ダ ツ 中 


は は は は 
あ あ 


クミ 有人 多 SS 代 さ 


ん ん 
9 
の 


ン 3 


クベ ググ 


テ フ ム ペペ クン ン さ パ * 


に に 、 


へ い きん だ い 


平均 台 ジ ヤ 


人 @ ゾ 『ー ム の 開始 の 回 ラム を 打ち 込ん だ ら ら , 国 【UIN [RETURNI。 
@ ゾ ー ム の 目的 : こん な 遊び を や つっ た こと な いな 。 
ー す に 分 が て , 平 49 公 の こち ら と 向こう 仙 に な ら s よー い 
ドン で 平 合 に かけ あがり , ぶつ か っ た と ころ で ジャ ンク ン 。 中 


け だ ら そ の 場 で 降り る 。 勝つ た 万 は 先 へ 進む 。 負 け だ 側 は 次 の 人 

が すぐ に 平均 全 に か け あがり , ぷ つ か っ だ と ころ で ジャ ン ケ ン 。 
ぞ づ )@gi。 平 堆 仙 の 上 で ジャ ン ケ ン レ お が ら 先 へ 先 へ と 人 お ゲ 

ー ム で す 。 さあ, 人 そろ つっ たら ゲ ー ム を は じ め よ う 。 

( @ キ ー の 作 万 法 : 文字 キー6 個 と スペ ー ス キー。 

| ジ ャ ン ケン の 出し 亡 ぶつ か る と 人 間 は 止ま り ます 。 ES 

声 を そろ えて , グー・ チ ヨ ョ キ ・ パー ー を キー を 押し て 出し ます 。 

それ ぞ れ の キー は 下 の と あり で す 。 自分 の 押し た キー が 相 

[ に わら な いよ うに 手 で か ご つて 押し まし よう 。 


[ 

IAl ( 左 の 人 ae 

「 以 

メメ ジャンケン に 邊 け だ ら , すぐ 次 の 人 を 平 協 台 に 乗せ まし よう 。 

パー を 押す と 出 て きま す 。 思わ ず 押 し て し まい , 相手 
の 得 に な つて し まつ て も と りえ し が つき ませ ん よ 。 


(43) ーー っ SE ー ェ いな テー シン 1 の 3 
平均 台 ジ ャ ン ケ ン ポ ン の プロ グラ 


19 DEFINT ぬ -Z 

29 COULOR 15,9,9:SCREEN 2,2 

39 ON STOP GOSUB 729:STOP ON 

49 CLS:OPEN "GRP:" AS #1 

っ 9 FOR II=9 TO 1 

69 FOR 1I=9 TO 15 

79_ READ 人 ま :a1 ま =LEFT 和 ま ( 人 生ま 8 ) :A2 ま =RTGHT ま ( 
本,。8) 

89 B1 ま =B1 も +CHR ま (VAL(" &b"+A1 呈 ) ) 

29 B2 ま =B2+CHR ま (VAL(" &b"+A2) ) 

199 NEXT I 

119 SPRITE ま ( ] TX2+9 )=B1+B2 ま 

129 SPR ITE ま ( 1 T※2+1 )=B1 ま +B2 ま :B1 ま =" " :B2 


139 NEXT 11 

149 LINE (25,139 )-(225, 135 ) , 15。BF 

159 LINE (35,135 )-(49 , 169 ) , 15,BF 

169 LINE (215,135)-(219,169 ) , 15,BF 

179 し = :RM=9 :L メ = ニ 25 : RX=225 

189 LINE (9,169)-(256。191 ) , 6,BF 

199 LINE (49,55)-(89 ,?5) ,4,BF :LINE (55 
,9)-(65,54 ) , 19 ,BF 

299 LINE (179,55)-(219,75),4,BF:LINE 
185,9 )-( 195,54 ) , 19,BF 

219 DIM JK ま (3) 

229 FOR 1=1 TO 3:READ JK ま (1 ):NEXT 

239 PUT SPRITE 9,(LX-16,98),8,9 

249 PUT SPRITE 1,(LX-16,114) ,8,2 

259 PUT SPRITE 2,(RX,98 ) ,19,1 

269 PUT SPRITE 3,(RX,114),19,3 

279 LX=LX+1 : IF LX>=RX THEN LX=LX-1 :GOT 
0 399 

289 RX=RX-1 : IF LX=>RX THEN RX=RX+1 : GOT 
0 399 


の ベー ジ に 続く 


299 
399 
き 19 
329 
339 
349 
359 
369 
379 
389 
329 
499 
419 
429 
439 
449 
= ) 
| SE 


459 
(9 ,209):RKX=225 


469 
79 
489 
4929 
っ 99 
っ 19 
っ 29 
うつ 39 


(144 ) 


GOTO 239 

PLAY "V12L32EFEFE " 

FOR 1=1 TO 299:NEXT 1 

F 1 =9 :F2=9 

LINE (9,179)-(255, 189 ) , 6,BF 

A ま =INKEY$ ま 

IF A$="/" THEN F2=1 

IF A=":" THEN F2=2 

IF AA ま ="[" THEN F2=3 

IF A ま =" ァ " OR も =" ア " THEN F1=1 

IF A ま ='"a'" OR A$="A" THEN F1=2 

IF A ま ="q'" OR A ま ="Q" THEN F1=3 

IF F1=9 OR F2=9 THEN 349 

GOSUB 679 

IF F1=F2 THEN 399 

IF (F1=1 AND F2=2) OR (F1=2 AND F2 
OR (F1=3 AND F2=1 THEN GOTO 459 E 
GOTO 539 

PUT SPRITE 2,(9, 209) PUT SPRITE 3, 


L し メニ LX+ 1 い 

IF LX=>223 THEN 529 

IF INKEY$=" " THEN 239 

PUT SPKIIUE 9 、 で PX16.28)。6.,9 

PUT SPRWIE 1。(LX-16。114).8.2 

GOTO 469 
PLAY"V12L32CDC " :LM=LM+1 :GOTO 619 
PUT SPRITE 9。(9.292):PUI SPRIIE 5 


(9 282):L メ ニク 5 


っ 49 
ここ 12 
っ 69 
うつ 79 
っ 89 
っ 29 


RX=RX-1 

IF RX= く <2Z THEN 699 

IF INKEY$=" " THEN 239 

PUT SPRITE 2.(KRX,28 ) , 19, 1 
PUT SPRK1TE 3.(RX。114 819.3 
GOTO 538 


生 光 の ペー ジ に 続 < 


(145) 


699 PLAY*V12L32EDE " : RM=RM+1 :GOTO 619 
619 LINE (49。55)-(89。7/5)。4。BF iLINE (17/ 
の 45)ー(219。7 コ ) 4。BF 

629 DRAM “"BM59 , 62“ 

639 PRINT ##1.STR ま (LM) ぅ 

649 DRAM "BM189 ,62" 

659 PRINT ##1.STR ま (RM) 

669 LX=25:RKX=225:G0T0 239 
679 DRAM “BM59 , 179" 

689 PRINT #1.JK ま (F1): 

699 DRAM "BNM189 ,179" 

799 PRINT 持 1.JK ま (F2) ぉ 

19 RETURN 

9JEUR 1=1 10 1999:COLUR 15。4。7:CLSsE 
ND 9 . 

739 DATA 9999991111999999 
" 749 DATA 9999911111199999 
59 DATA 9999119119119999 
769 DATA 9999911111199999 
779 DATA 9999911991199999 
7G9 DATA 9999991111999999 
29 DATA 99999991 19999999 
899 DATA 9999999119999999 
819 DATA 9999911111199999 
829 DATA 9999111111119999 
839 DATA 9991111111111999 
849 DATA 9991111111111999 
859 DATA 9919911111199199 
8G69 DATA 9919911111199199 
879 DATA 199911111199919 
889 DATA 9199911111199919 
'829 DATA 9199911111199919 
299 DATA 9199911111199919 
219 DATA 9999911111199999 
229 DATA 9999911991199999 


生 光 の ベ ページ に 続く 


(146) 


99991 199991 19999 
998991 199991 19999 
9991 199999911999 
9991 19999991 1999 
9991 199999911999 
9991 19999991 1999 
991 1999999991199 
991 1999999991 199 
991 1999999991199 
991 1999999991199 
991 1999999991 199 
0 
グー ルク き や ニー 


か い ぞう 


査 改造 と 解説 の ワン ポイ ント ・ レ ッ ス ン 


@ 作 間 の 形 を 変え て みよ う 730 行 一 1040 行 
人 間 は スプ ライ ト (6x16 の スプ ライ ト を ら 個 ) で ひい て いま 


9。73 0 行こ 1040 行 の スプ ライ ト の デー の O と 1 を いろ いろ 書き 


変え て み ま し よう 。1 の と ころ を O に し だ りら, O の と ころ を 1 に 
し た り レ て , あな だ 独自 の 人 間 の 形 を 作り だ し て み ま し よう 。 


打ち 込ん だ ら , [RIUIINIRETURN 。 し ば ら こ する と , 黒い 四 
角 が 出 て こる の で これ を カー ー ソ ル 移 動 キー で 移動 させ る 。 そ こ で 
スペ ー ス キー を 近 す と , 氷 の 形 が 画商 に 出 て きま す 。 これ は , ゲ 
ー ム の 画面 を 作る と き な ど に 訪 用 で きま す よ 。 


19 COLOR 15,4,.4:SCREEN 2 

29 FOR N=9 TO 76 ァ 

39 VPOKE &H1899+N,2:NEXT_N 

49 FOUR N=9 TO ァ 

59 READ D:D=VAL(" &H"+D ま ) 

回 仙人 K、7E。E3 上 DFB。FBR/FP FEF , 三 

9 VPOKE _N,D:VPOKE &H899+N,D 

89 VPOKE &H1999+N,DiNEXT_N 

29 FOR N=9 TO Z 

199 VPOKE &H2999+N,&HF? 

119 VPOKE &H2989+&H899+N , &HF 

129 VPUKE &H2999+&H1999+N,&HF7:NEXT N 
139 FOR N=9 TO ? 

149 READ D ま :D=VAL("&H"+D ) 

159 S ま =S ま ま +CHR ま (D):NEXT N 

69 AIA (FESACS。 し う 。C8,FF, 
179 SPRTTE ま (9 ) ニ S ま ま : メニ 9 : Y=9 

189 FUT SPRHTE 9。《(XX8。YxGgー1 ) ,1 9 
129 FUR 「=1 TO 19:NEXT TiN=STICK(9) 
2Z99 IF N>1 AND N<5 THEN X=X+1 

219 IF N>5 AND N く 9 THEN X= ニ メー1 

229 IF N>3 AND N<7Z THEN Y=Y+1 

239 IF N=1 OR N=2 0R N=8 THEN Y=Y-1 
249 IF X>39 THEN X=3@ 

23 り jF Y〉>23 THEN 23 

269 IF X く 9 THEN X=@ 

279 IF Y< く 9 THEN Y=@ 

289 IF NOT STRIG(9) THEN 189 

299 VPOKE &H1899+X+YX32.9:GOTO 189 


(148) 


じ 


吹 バク 骨 


ツ S デ 


た い 


ペー 


(153) 


ペペ ペペ 
AA 


@ ゲ ー ム の 開始 : プロ プラム を 打ち 込ん だ ら , 因 IUIR IRETURN。 
@ ゲ ゾー ム の 目的 : あな た だ は, あの 人 気 スポ ー ツ の テー ス を し た ご と 
で CE の IM ニス Hh aa 
ス で 9 よ 。 
これ は 一 人 で や る テニス で す 。 そし て , 和 Susko 壮 は 
黒い 虫 0 の) で す 。 この 中 は 画 庫 の 下 か ら 上 へ ,。 ソロ リノ ロリ 
と 上 が っ て いき ます 。 ご の 中 に ボー ル を 当て る と 得 訪 で す 。 
自分 の ラナ ッ ト を うま ぐ あ や つつ て 当て まし よう 。 後ろ の カベ 
に 10 回 ボール が 当たる と ゲー ム ハ オ ー バ ー で す 。 後ろ の か べ に 当て 
な いよ うに , ボー ル を ラケット で 受け な が ら , 虫 を 何 びき も や っ 
つけ て 高 得 庶 を あげ まし よう 。 
@ キ ー の 操作 万 法 : カー ソル 移動 キー の 上 下 。 
ラケット の 上 下 は ,。 カー ソル 物 動 キ ー の 上 下 で お こない ます 。 


22858 


19 D 


FINT 『 _Z 


COLOR 15,4,4:SCREEN 2,9:D=RNDK-TINE 


39 FOR II=9 TO 4 

49 B*$=""sFOR 1=1 TO 8:READ Ab:B ま =B ま + じ H 
R ま (VAL(" &h"+ ま ) ) :NEXT 

59 SPRITE ま (1 1 )=B$ ま 


69 


NEXT II 


ィ 9 DATA 93,93,93,93,93,93,93,93 
89 DATA 93,93,93,93,93,93,93,93 


29 

199 
119 
129 
139 
149 
159 


DATA F9,F9,F9,F9,99,99 ,99,99 


DATA 66,24,24.,99.99。 7E ,3C ,BD 

DATA FF,3C,3C,7E 29,99 24 24 

DIM A(3),ST(1.8) 

OPEN "GRP: "AS 1 

BX=39 : BY=199 : =9 : CH=9 : TB=1 

FOR 1=1 TO 8iREAD ST(9,1),ST(1。1): 


NEXT 1 


169 
ぅ 9, 一 
179 
F 

189 
129 
299 
219 
229 
239 
249 
259 


9 
269 
279 
289 


DATa し 。1 11 041.9 1 1、)。 良 
由 っ ーー ト 
LINE (39-1 ,29-1 )-(239+3, 189+6) ,2。B 


RESTORE 299 

READ A(9),A(1):a(2)= RND( 1 )※15X8+2 き 
DATA 2 139 

RX=219-3: RY=199 :CQ ニ ア 

PUT SPRITE 9,(RX,RY-4) ,15,9 

PUT SPRITE 1,KRX,RY+4 ) , 15, 1 

PUT SPRITE 2,(A(1)。 全 (2))。 6 
PSET( 199,9),4: PRINT 1 。 聞 " ク " た M 寺 


A(1)=A(1)+ST(9,A(9) ) デ 4 
A(2)=A(2)+ST( 1 ,A(9 ) )※4 
IF A(2)>=189 THEN GOSUB 419 


の ペー ジ に 続く 
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229 IF A(2) く <=29 THEN GOSUB 439 
399 IF A(1)<=39 THEN GOSUB 459 
319 IF A(1)>=239 THEN GOSUB 549 
329 IF A(1)=219 THEN GOSUB 599 

339 PUT SPRITE 2,(A(1),A(2) ),15,2 

349 B=STICK(9 ) 

359 IF B=1 AND RY>24 THEN RY=RY-4 

369 IF _B=5 AND RY<172 THEN RY=RY+4 

379 PUT SPRITE 9,(RX,RY-4 ) , 15,9 

389 PUT SPRITE 1。(RX,RY+4) ,15,1 

329 IF CQ =8 THEN GOSUB 679:CQ=9 ELSE 
CQ=CQ+ 1 

499 GOTO 269 

419 IF A(9)=4 THEN A(9)=2 ELSE A(9)=8 
429 RETURN 

439 IF A(9)=2 THEN A(9)=4 ELSE A(9)=6 
449 RETURN 

459 BB=aABS(A(2)-BY-4 ) : IF BB>9 THEN GOT 
0 519 

469 PLAY 『V15L64EFEFEFEFE " : CB=CB+1 : TB= 
1*3 

479 LINE (299,9)-(255, 1? ) , 4 ,BF 

489 DRAM'BM299 ,9" :PRINT #1 STR ま (CBx199 
GII ルッ 3 

429 IF TB>8 THEN TB=8 

っ 99 IF A(9)=Z THEN A(9)=8 

っ 19 IF A(9)=Z THEN A(9)=3:RETURN 

っ 2Z9 IF A(9)=8 THEN A(9)=2:RETURN 

っ 39 IF A(9)=6 THEN A(9)=4:RETURN 

っ 49 PLAY “U15L1603A" :LS=LS+ 1 

っ 99 IF LS=19 THEN 729 

っ 69 IF A(9)=2 THEN A(9)=8:RETURN 

っ 79 IF A(9)=3 THEN A(9)=?:RETURN 

っ 89 A(9)=6:RETURN 

つっ 29 C=ABS(A(2)-RY-4 ) :TF C>9 THEN RETUR 
N 


あの ページ に 続く 
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699 IF A(9)>5 THEN RETUKRN 

619 PLAY "V15L6406C" :CT=CT+1 

629 IF C<2 THEN A(9)=?Z:RETURN 

639 IF A(9)=2 THEN A(9)=8:RETURN 

649 IF A(9)=4 THEN A(9)=6:RETURN 

659 IF A(2)>RY+4 THEN A(9)=6 ELSE AA(9) 

=8 

669 RETURN 

679 BY=BY-TB 

689 IF BY<29 THEN BY=171 

699 PUT SPRITE 3,(BX,BY-4),1,3 

ィ 99 PUT SPRITE 4,(BX,BY+4) ,1 4 

719 RETURN 

729 PSET (199,89 ) ,2:PRINT ##1 "か "ー ム オー 
9 

ィ 39 FOR 1=1 TO 19999:NEXT:SCREEN 1:COL 

OR 15,4,7iEND 


誤 操 造 と 解説 の フン ポイ ント ・ レ ッ ス ン 


@ ラ ケッ ト を 動 ひ し て いる の は 340380 行 


ラテ ナッ ソト は カー ソル 移動 キー で 動 ひ し て いま す 。 340 行 の 


B=STICK (の ) 。 
で , か っ この 中 の 数 字 が の の と き は キー ボー ド 上 の カー ソル 移動 
キー で す 。 これ を 1 に 変え る と ジョ ヨ イス テイ ッ ン が 使え ます 。 


(159) 


を も も 


告 っ で" 


代 回 2 


凌 49 個 いし 7 
で つじ 
2 ン ペ お ジー" 


(160) 


勝 ヶ 方 三 先 そ 
が 列 5 に し 
9 


(161) 


000000 回 
で づつ 会 谷 放 N 
く ひ seG 約 


GS っ や で で 


NN 


ルク 


ざっ /2 (DD) 


法 


あ そ (162) 


@ ゲ ー ム の 開始 ブロ グラ ム を 打ち 込ん で , 加 UINIIRETURNI 8 
@ ゲ ー ム の 目的 : ソコ ン と あな だ の 最 対決 ゲ ー ム で き 。 
紙 こ お き カ えて 説明 し まし よう 。 紙 が 2 枚 ある と 思っ つて くだ さ 
い 。 あな だ の 紙 に ら メ 5 の 25 の マス を 書き , 1 ガ ら 25 ま で の 数 字 
を 自由 に 入れ ます 。/ パソ コン 佑 も 同じ よう に 1 カ ら 25 ま で の 数 字 
を 自 申 に 書き 入れ ます 。 先手 後 を 決め て ガ ら , お 互い の 紙 を 見 
せな いよ うに し て , 先手 か ら 数 を 一 つ 言 つて , その 数 守 に x を つ 


け ま す 。 相手 に も その 数 字 に x を つけ させ ます 。 次 に 後手 が 数 を 


言っ て , 自分 も x を つけ ます 。 この こり ガ え し で , ご ちら が が 早 


く メ の 多 を 9 本 Cx が 5 個 な らぶ タテ ・ ヨコ ・ ナ ナメ の 線 の 12 本 
の うち の 3 本 ) な ら べ だ 万 が 勝 ち で す 。 

@ キ ー の 操 法 : 数 字 キ ー, 文 キ ー と リー ン キ ー。 

先手 ・ 後 は , 1 2。 リタ ー ン キー は 刻 愛 あり ませ ん 。 
南側 は 自分 の 手 し 見 えま せん 。 1 カ ら 25 ま で の すき な 数 字 を 
入力 し て リマ ー ン 。 (リマ ー ン 前 な ら 訂正 可能 で す 。) 

③/ (ソコ ン も 数 を 決め て , 「 わ た し は 〇 に し ます 。J こ し て きま す 。 
これ も , 自 の 消し だ 数 に 加 り り ます 。 

の ④ ど ちら が , 8 本 線 を つ は げ だ 時 京 で 終了 / ソ コン が 隊 條 
け を 判定 し ます 。 

⑥ そ の 後 で , も う 一 度 や る 場合 

や め る と き は 


19 DEFINT A-Z:SCREEN 1:KEY OFFiDIM FC( 

4。4) EPC4。4) 。PC( 4 。4 ) ,PP(C 4 。4 ) (24 ) , 5 まく 

9,1):PLAY ・T129V15L16" ,"T129V15L16" 

29 FOR J=9 TO 1:FOR H=9 TO 9:READ S ま (HH 
>J)kNEXT HkNEXT J 

39 CLSiPRINT "Reach! !" :PRINT 

49 PRINT " せ A& て な ら 4 才 *PRINT こ て を 6 < ク 
> を お し て く た “ さい | 。 

59 LOCATE 9,6:A ま =INPUT ま (1 ) iPRTNTA ま 

69 IF A ま ="1" THEN PLAY S ま (1.9),S ま (1。1) 
:FF=9:GOTO 29 

ィ 79 IF A ま ="2" THEN PLAY S ま (2,9),S ま (2。1 ) 
*FF=-1:GOUTOU 929 

89 PLAY "C3C" 。"03FF " :LOCATE 9,6zGOTO 5 

9 

99 H=RND(-TIME ) :FOUR H=1 TO 1999:NEXT H 
sCLSsPRINT' ち ょ っ と まっ て ね 。 

199 FOUR H=1 TO 25 

119 X=INT(RND( 1 )*5) :Y=INT(RND( 1 )*5):TF 
FC(X。Y)>9 THEN 119 ELSE FC(X,Y)=H 

129 X=INT(RND( 1 )*5) :Y=INT(RND( 1 )%5): TF 
FP(X。Y)>9 THEN 129 ELSE FP(X。,Y)=H 

139 NEXT H 

149 GOSUB 459:IF FF THEN 299 

159 LOCATE 9。12sINPUT "と ^ れ に し ます か 
3 仙人 AFTX(UAL(A ま )):LOCATE 9,12:PRKINTST 
RING ま (49 , 32) :LOCATE 9,13:PRINT STRING ま 
(18,32)j:IF A<1 OR A>25 THEN PLAY "03C" 
。 03F+" GUTO 159 

169 FOUR X=9 TU 4:FOR Y=9 TO 4:1IF =FP( 
X。Y) THEN 189 

179 NEXT YsNEXT X 

189 IF PP(X,Y) く <>9 THEN PLAY"03C" ,"C3F+ 
":GOUTOU 159 


和光 の ペー ジ に 続く 
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129 Z=AiGO0SUB 519 

299 ERASE QiDIM Q(24) 

219 FOR Y=9 TO 4:FOUR X=9 TO 4:Z=9:IF P 

CCA PINENI SSM 

229 K=FC(X。Y)ー-1:M= ニ 1: ロモ 1 :FOUR H=9 TO 4:I 

F_ PC(H。Y) THEN _D=D+1 :M=M+ 1 

239 NEXT HiZ= ニ Z+D※M※M 

249 M=1 iD=1:FOR H=9 TO 4:IF PCX(X。H) TH 

EN D=D+1 :M=M+ 1 

259 NEXT HiZ ニ Z+D※M※M 

269 IF X く >Y THEN 299 

279 M=1 iD=1 :FOR H=9 TO 4:IF PCXH,H) TH 

EN D=D+1 :M=M+ 1 

289 NEXT HiZ デ Z+D※M※ 団 

クツ 9 IN XY ぐ >4 THNEN 320 

399 M=1:D=1:FOR H=9 TO 4:IF PC(H,4-H) 
THEN _D=D+ 1 :M=M+1 

319 NEXT Hi:Z=Z+DXMxN 

329 QK(K )=Z 

339 NEXT XiNEXT Y 

349 K=9 : ア =Q( 9 ) 

359 FOR H=1 TO24:TIF Q(H)>Z THEN K=H: ア = 

Q(H) 

369 NEXT:K=K+1 :LOCATE 9,13:PRINT" わ た し 
は “3RIBHT 事 (STRE ま CK)。2)。 に よし ます 「: 

379 Z=KiGOSUB 4929 

389 GOUTO 159 

329 LOCATE 9,13:PRINT STRING ま (18,32) : : 

LOCATE 9 11:PRINT" ーー デーー ィ ーー 一 た ーー yes りな 

499 FOR Y=9 TO 4:LOCATE 9,Yx2+12:PRINT 
"17 jkFOUR X=9 TO 4:PRINT RIGHT ま (STR(F 

じ (X。Y))。2)7:PRINT "| :sNEXT X:LOCAT 還 9 
>Y※2+13:PRINT “ーー ナー オキ ーー トーー ナ ーー " 』: NEXT 
bi 

419 LOCATE 9,21 :PRINT "レーー レ ーー トーーー ト ーーー ト ーー」 


を 光 の ペー ジ に 続く 
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429 FORY=9 TO4:FORX=9 TO4iTF PC(X,。Y) T 

HEN LOCATE Xx3+1 ,YX2+12:PRINT "OK" 

439 NEXT XiNEXT Y 

449 RETURN 

459 CLS:PRINT " レー エーー ィ ーー エーー ィ ーー 
469 FOR Y=9 TO 4:PRINT "1"j:FOUR X=9 TO 
iLOUCATE XX※3+1 ,Y%※2+1 :PRINT RIGHT ま も (STR 
証 ( 旧 PCX。Y))。2): "1 放 NEXT X 

479 PRINT:PRINT " ヒト ーー ビー オーー キ ーー トー "NEXT 


Y 

中 0 選 NIF 和良 遇 68 の )t ーーーーー ニ ーー ニーーーー 
RETURN 

499 FOR Y=9 TO 4:FOR X=9 TO 4i:TF FP(X。 
Y)=Z THEN 519 

っ 99 NEXT XiNEXT Y 

っ 19 PP(X。Y)=1:LUCATE Xx3+1 。Yx2+1:PRINT 
は の の 

っ 29 A ま =S ま (7Z\19,9)+"R8"+S ま (ZZ MOD19,8):B 
本 =S ま (Z 半 19 。1 )+"R8"+S ま (7 MOD19,1 ):PLAY a 
生 ,B ま 

ら 3③ り FOR Y=9 TO 4:FOR X=9 TO 4:IF FCXX。 
Y)=Z THEN 559 

っ 49 NEXT XiNEXT Y 

っ 29 PC(X,Y )=1 

っ 69 CP=9:FUR Y=9 TO 4:Z=9:FOUR X=9 TO 4 
: メニ Z+PP(X。Y):NEXT X:TF Z=5 THEN CP=CP+ 
1 

SW NEXT Y 

つっ 89 FOR X=9 TO 4:Z=9:FOR Y=9 TO4:Z=Z+P 
PCX,Y)iNEXT Yi IF Z=5 THEN CP=CP+1 

うつ 29 NEXT X 

699 Z=9:FOR X=9 TO 4:Z=Z+PP(X,X) :NEXT 
Xs: IF Z=5 THEN CP=CP+1 

619 Z=9:FOR X=9 TO 4:Z=Z+PP(4-X 。X ) : NEX 
asTF メニ =5。 THEN _CP=CP+1 


を の ベー ジ に 続く 
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629 CC=9:FOR Y=9 TO 4:Z=9:FOR X=9 TO 4 
: 7=Z+PC( XY ) :NEXT X:IF Z=5 THEN CC=CC+ 
1 
639 NEXT _Y 
649 FOR X=9 TO 4:Z=9:FOR Y=9 TO 4:Z ニ アオ 
PC(X,。Y):NEXT YiTF Z=S THEN CC=CC+1 
659 NEXT X 
669 Z=9:FOR X=9 TO 4:Z=Z+PC(X,X):NEXT 
X:TF Z=5 THEN CC=CC+1 
679 Z=9:FOR X=9 TO 4:Z=Z+PC(4ーX。 X): NEX 
T WOF 2=ー5 THEN も に =CC そ 1 
689 IF CP<3 AND CC く <3 THEN _ RETURN 
629 GOSUB 329 
799 IF CP=CC THEN 819 
19 1MCC2CP HHEN 736 
7Z9 IFmCC く CP THEN 7Z9 
739 A="T129S13M29914":PLAY も, ム ま 

| 749 PLAY"05L16EDL4E .R4L16DC04BAL4G+ .L8 
AL2A*" "03L16EDL4E .R4L16DC02BAL46+ 。L8AL 
2A" 
そつ 9 LOCATE 9.24:PRINT' お ま 志 WW まり た" 
::FOR 日 =1 TO 9999:NEXT H 
769 GOTO_849 
79 中 = "T188S9M5999L4' :PLAY 人 
789 PLAY'05EEFGGFEDCCDED.L8CL4C* ,*04EE 
FGGFEDCCDED.LSCL4C* 
799 LOCATE 9,24:PRINT' お ま ぇ 0⑳0 か ち た " 。 
・・ FOUR H=1 TU 11999:NEXT H 
899 GOTO 849 
819 A ま ="T159S9M5999L4" :PLAY 人 A ま 全員, 人 人 ま 
829 PLAY'05C04L8GGL4AGR4BO5C " , "06C05L8 
GGL4AGR4BO06C" , "05R1R4FE" 
889 LUCATE 9.242PRINT す まひ 全 です 。 が 
FOUR H=1 TU 7999:NEXT H 
849 PLAY “T129V15L16' ,"T129V15L16" 


光 の ベ ページ に 続く 
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859 LOCATE 17?,9:PRTINT " も うい ちと " や る な 5 "LOUC 
ATE 1?,1:PRINT" <Y> を " 

869 LOCATE 1?,2:PRTNT " や ゆめ る と き は " :LOCATE 1 
ィ ,。3:PRINT" <N> を "iLOCATE 17,4:PRINT "お し 
で く た * さ DD。" 

879 LOCATE 17,6:a ま =INPUT ま (1):TIF INSTRK 
”Y ッ ん ン ” 。A ま )>9 THEN ERASE FC,FP,PC。PPsDI 
Ni 民 00454)。EP(4A、49 放 EGE(4 4) PPC4.4 7) 06A 
TE 17,6kPRINT"Y" jiPLAY S ま (1.9)。S ま (1 。1 ) 
:GOTOU 929 

889 IF INSTR("Nng ミ "まう )>9 THEN LOCATE 

17,6:PRINT"N" jiPLAY S ま (2。9)。S ま (2。1 ) :FO 
R H=1 TO 1999:NEXT:KEY ON:SCREEN 1:COL 
ORI1S あ 4 。 46LSsEND) 

899 LOCATE 17,6:kPRINTA ま LOCATE 17,6iPL 
AY "03C" 。"03F+" GOTO 879 

999 DATA o4f†+,o4c ,。o4c 。o4c 。o4d,o4d。o4d。 
o4e ,o4e , o4e , o5a , o5g+ , o5a+ 。 oO6c , o5g+ 。 o5a 


+ 。 OG6c , oO5g+ , oOag+ 。 oO6c 
999 DATA o4f+,o4c ,o4c 。o4c 。o4d,o4d,o4d。 
o4e,o4e 。o4e , o5a , o5g+ , o5a+ , o6c 。 oOg+ 。 o5a 
+ 。 o6c , o5g+ , o5a+ 。 o6c 
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か お ん づく 


還 


錠 打 剖 作 りり ツウ 


こう か お ん づく 


効果 音 作り ノウ ハウ 


MS X は , 効果 昔 作り も 得意 で す 。 効果 音 は 。 PSG (プロ ブラ 
マブ ルル サウ ンド ・ ジ エネ レーター ー つ ) と いう じ S 「 を 使っ て 出し ま 
9。 この し S | を 使う と 。 プ ロ プ ラム を 号 え る だ け で , 効果 音 を 台 
成 で きま す 。 

効果 意 を 作る 6 令 は SOUND で すき 。 SOUND の 後に こ 災 の よう 
な 値 を 号 え て 効果 音 を 出さ せま す 。 の の 

SOUND PSG の レジ スタ ー 番 号 (0-13), 書き 込む 値 
レジ スタ ー の 0 が ら 13 ま で は それ ぞ れ 琶 味 を 持つ て いて , それ 
書き 込め る 値 の 千 明 も 決ま つて いま す 。 この 意味 は 。 MSX メ パソ 
5 が NMM 
@2 果 苦 作り プロ プラ ム の 使い 方 
① ブ ログ ラム を 打ち 込ん だ ら , 団 IUIN [RETURNI 。 
⑧ 一 つつ , / パ ノコ ン が 慎 を 聞い て きま す 。 聞か れ た だ とおり に 入 
力 し て リタ ー ン し て いき まし よう 。 
e 音 の 高 さ の 一 4095 は , 値 が び 大 きい ほど 低い 音 で すき 。 
* 音 の 大 き さ の 一 16 は 。 数 が 大 きい ほど 大 きこ な り ます 。 

だ だ し , 16 は エン ベロ ー プ の 指定 で 。 エン ペロ ー ブ と は 
音 の 大 き さ を , 一 定 の 時 間 的 な / パ ツ ター ン で 変化 さき せる こと を い 
いま す 。 

* ノ イズ の 高 さ の 一 31 は 値 が 大 きい ほど 高い 音 こ な り ま す 。 

⑧ 地 秋 の 入力 びす むと, 音 を 出し な が ら それ ぞ れ の レジ スタ ー に 

入 つ だ 邊 も 表示 し ます 。 この 表示 に な ら つ て , SOUND の あと 
に , SOUND 條 10 の よう に 命令 を マル チ ス テー トメ ント で つ 
な げ れ ば , 今 出 し て いる 音 と 同じ 音 を プロ プラ ム で 出す こと が 
で きま す 。 

音 を 止め る と き は , LCTRLH+[STOP。 
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SCRKEEN 1:CLSiPRINT "オト うつ "くり "iPRINT 
CH="A" :GOUSUB 549:S?=S7+1xN 
IF NX=1 THEN 69 
GOSUB 699:S9=N2:S1=N1 
GOSUB 659 :S8=N 
CH ま ="B" :GOUSUB 549:S7=S?7+2xN 
IF NX=1 THEN 199 
GO0SUB 699:S2=N2 : S3=N1 
GOSUB 659 : S9=N 
199 CH まま ="C" :GOSUB 549:S?=S7+4xN 
119 IF NX=1 THEN 149 
129 GOSUB 699:S4=N2 : S5=N1 
139 GOSUB 659:SA=N 
149 PRINT:CH*="A" :GOSUB 589:S7?=S7+8xN 
159 CH* ま ="B" :GOSUB 589:S7=S7+16 テ N 
169 CH ま ="C" :GOSUB 589 :S?=S7+32 テ N 
179 PRINT 
189 N=S7Z AND &B111999 
129 IF N=S56 THEN 249 
299 PRINT “ノイ ス " の 0 た が さ ?" 
219 INPMUT 9 。。。。31 "4N 
ZZ9 IF N<@ OR _N>31 THEN 218 
239 S6=N 
249 IF S8<>16 AND S9 く <>16 AND SA<>16 TH 
EN 339 
259 PRINT "エッ A" ロ ー フ " 0 が ん A か く の" 
269 INPUT "@ 。。。。 65535"jN 
279 IF N<9 OR _N>65535! THEN 269 
2Z89 N2=INT(N/256 ) : N1 =N-N2x256 
Z29 SB=N1 : SC=N2 
399 PRINT "エン AY ロ - フ " 0 し ゅ る D の?" 
319 INEUT W 。。。。 14 sN 
329 IF N<9 OR N>14 THEN 319 
339 SD=N:PRTNT くり が え し ます が ?"* 
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349 INPUT "は U (9) UMU ぇ (1)"jN 

359 IF N<9 OR N>1 THEN 349 

369 IF N=9 THEN X=19 ELSE X=1 

SO ELSSLOCATE 9、2 

389 PRINT "9@--" 3:S9:PRINT "1--"jS1 
399 PRINT "2--"jS2:PRINT "3--"jS3 
499 PRINT "4--"3S4:PRINT "5--"j5S5 
419 PRINT "6--" 3S6:PRINT "アーー" 57 
429 PRINT "8--":S8:PRINT “9--"j59 
439 PRINT "19-":SA:PRINT "11-'jSB 
449 PRINT "12-"jSC:iPRINT "13-"jSD 
459 FOR J=1 TO X 

469 SOUND 9,S9:SQUND 1,.S1:SOUND 2,S2 
479 SOUND 3,S3:SOUND 4,S4:SOUND 5,S5 
489 SOUND 6,S6:SOUND ?,S7iSOUND 8,S8 
499 SOUND 9,59:SOUND 19,SA:SOUND 11,SB 
599 SOUND 12,SC:SOUND 13,SD 

519 FOR T=1 TO 599:NEXT T 

529 NEXT J 

っ 539 END 

549 PRINT CH ま :" を な 5 し ます が ?" 

559 INPUT "は い (9) MM ぇ (1)"jN 

569 IF N<9 OR N>1 THEN 559 

579 NX=N:RETURN 

589 PRINT CH*?』" 0 ノイ ス " を た "し ます か ?" 
S29 GOTO 559 

699 PRINT CH も 3? 0 た が さ ?" 

619 INPUT "9 、。.。 4995"jN 

629 IF N<@ OR N>4995 THEN 619 

639 N2=N MOD 256 :N1=N \ 256 

649 RETURN 

659 PRINT CH も :" の 0 お お き さ ?" 

80 NBMT "の 2。。。 16 (16 は 2 へ "ロー の ) 50 
679 IF N<9@ OR N>16 THEN 669 

RETURN 
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プラ イド 但 り ノウ 八 


MS X の 大 き ね 持 長 の スプ ライ ト は いつ だ ん 使い 万 を 覚え る と 
と て も お も し ろ い ゲー/- 用 の 人 内 に な り ま す 。 スプ ライ ト 作 成 の ま 
順 は , 
| ④① ス プラ イト を 使う 条件 を SCREEN て 疫 定 する 。 

各 丸 プラ イ ト の / ツー ン ( 給 ) を SI PR | 0 上 $ で 定義 する 。 
] ③ ス プラ イ ト を 画商 PUT SPR I Ma で 表示 する 。 


それ ぞ れ の 命令 の 内 容 ・ ・ 使 い 方 は MSX の 解説 書 を よく 読ん で 
マス ツー レ て くだ さい 。 ご ご で は , .@⑯ の スプ ライ ト の / パ マー ン の デ 
ー タ の 作成 記法 を プロ プラム で 簡単 や っ て み ま し よう 。 


@ ス プラ イト の 作り 方 

④ プ ログ ラム を 打ち 込ん だ ら , 因 IUINI IRETURNI 。 

スプ ライ ト の 色 と , バッ ソフ の 色 を きい て こる の で , カラ ー コ ー 
6 の ー ー15) を 入力 し , リタ ー ン 。 

⑧ 表 が 出 て きた ら , 油 妥 ー ソ ル を 動か し て いっ て 区 の よう に キー 押 
作 す る と , 右 下 に スプ ライ ト の / パ ツー ン が 表示 され ます 。 


・ 色 を つけ る 場合 
~ つけ だ 所 を こる 場合 
スワ ライ ト 2 次 し た Gy お の 抽 ま を x モ レ て お は しょう. 
この 数 字 は 16 進 数 で .16X16 の スプ ライ ト の デー タ に な つて い 
ます 。 この 数 字 の 利用 の し カ だ は 179 ペ ー ジ で す 。 
フロ グラ ム を 止め る と き は , [CTRL] [CTRL]+[STOP] 。 


(177) 


19 
29 
E12 
49 
っ 9 
ト 
69 
り 
79 
89 
29 
199 
119 
129 
139 
149 


145 
159 


169 
179g 
189 
129 
299 
219 
229 
239 
249 
Z59 
269 
279 
289 
220 
399 


スプ ライ ト 作 り の ブロ グラ ム 基 


UN STOP GOSUB 459:STOP ON 
DEFTINT Aa-Z 
OR 間 D 4 .4:KEY TOEE 
SEREENI ID 246S 
CATE 9。 呈 zTNPUT “ チ ス ト ひょう し "する スワ フ " ラ イ 
NN る "SC 
LOUCATE 9,8: INPUT "テスト ひょう し "する は DU 
bh る "BC 
CLS 
LOCATE 5。9:PRINT " ス フ " ラ イト さく せ b 『 
00 ま ="※" :FF ま ="・" 

DIM A(31) 

FOUR Y=9 TO 15 

FUR X=9 TO 15 

LOUCATE メ +2 。Y+2sPRTINT FF ま ? 

NEXT 

LOCATE 29。1:PRINT " &H &H's 
LOCATE 29,Y+2:PRINT USING " && && 

ea "3 

NE Y 

SPRITE ま (9 )=STRING ま (32 。 9 ) 

SPR ITE ま も (1 )=STRTNG$ ま (32 。 255 ) 
BSRMRMNIE。 1 1597159)。BG.3 
UNSEBRIIE 9。(159.159) SC 9 

じ メ =9 : CY=9 

LOCATE CX+2。CY+2 ょ AASC( INPUT まま ( 1 ) ) 
IF =28 AND CX く >15 THEN CX=CX+1 
IF Aa=39 AND CY く >9 THEN CY=CY-1 
IF =29 AND CX く >9 。 THEN CX=CXー1 
IF A=31 AND CY く >15 THEN CY=CY+1 
IF =13 THEN GOUSUB 399 

IF =32 THEN GOSUB 369 

GO0T0 229 

LOCATE CX+2.CY+2kPRINT 00 ま る: 


の ペー ジ に 続く 


(178) 


319 IF CX>7Z THEN F1=16sF2=S ELSE.F1= ニ 9: 
F2=9 

329 A(F1+CY)=A(F1+CY) OR (2^(7ー(CXーF2 ) 
) ) 

339 LOCATE 29,CY+2:PRINT USING " && & 
&" jHEX ま (A(CY ) ) jHEX ま (A(CY+16) ) 

349 GOSUB 429 

359 RETURN 

369 LOCATE CXT2 し CYT25PRTINI FF ま 5 

379 ITF CX>Z THEN F1=16:F2=8 ELSE F1=9: 
F 2=9 

389 AaA(F1+CY)=A(F1+CY) AND (NOT(27(7ー(C 
メー ビス) ) ) ) 

399 LOCATE 29,CY+2:PRINT USING " && る & 
&" 5HEX ま (A(CY ) ) jHEX ま も (A(CY+16)) ぉ 

499 GOSUB 429 

419 RETURN 

429 B ま ="“ 

439 FOR 1=9 TO 31 :B ま =B も +CHR ま ( 合 ( 1 ) ) : NEX 
T 

449 SPRITE ま (9 )=B ま :RETURN 

459 CLSiSCREEN 1:COLOR 15,4。7i:END 


、 ス フ * ラ イト まで さい 


MKVKSDP 


SQQOQOQOOOOD に DD あ も の に みか 


の ページ に 続 < 


(179 ) 


@ ス プラ イト デー タ の 使い 
大 出 に な らん だ る 別 の 数 字 は 先 側 の 16 個 が 先 , 右側 の 16 個 が 後 
で 32 個 の デー タ と し て 使い ます 。 この デー タ は , 下 の プ ログ ラム 上 
の 100 行 か ら 130 行 ま で の DATA の 後に , この 忠 で カン マ で こぎ 
つて 打ち 込む と , あな だ の 作 つ た だ スプライト が , 画面 上 の いろ いろ 
な と ころ に 表示 され ます よ 。 
の 10 行 の SCREEN 2, 2 は , ス フ リー ン 命 令 で 9。 前 の ら は 


こう か v 


高角 勿 度 グラ フィ ッ フ モー ド で 9。 後 の ら は , スプ ライ ト サ イ 
ズ で 16x16 ド ッ ト の スプ ライ ト / パ ター ン の 表示 で す 。 この ら を 
3 に カ え る と 上 の / パ ター ン ガ 2 倍 に 拡 大 され ます 。 
@②Z20 行 か ら 40 行 まで が , スプ ライ ト / パ ター ン の 走 開 で す 。 
SPR 1 TE$ (0) で 定義 し て いま す 。 0 行 の FOR か ら 40 行 ま 
で は スプ ライ ト の デー タ を 文字 式 に する た め の 剖 分 で す 。 この 
まま 覚え て あい て < だ さい 。 
③80 行 で 。 ス プラ イト を 画面 に 表示 し て いま す 。 
PUT 2 二 1 / C, 9 
テニ ーー 5 あら 29242 位 の) 
2 8 表示 する 位置 上 aa の RW 
番号 か っ この 番 号 に 対応 
19 COLOR_15。1 7:SCREEN 2。2:R=RND(-TIME ) 
29 UPEN "GRP:" AS ##1sFOUR 1=9 TO 31 
39 READ D ま :A ま =A ま +CHR 和 まま (VAL("&h "TH まう) ) 
49 NEXT 1:SPRTITE$( 9 ) ニ ム A ま 
59 PSET(99,19 ) ,12:PRINT 提 1 。" ス プ " ラ イト テ “ モ “ 
69 X=INT(RND( 1 )※239+1 ) 
ア 9 Y=INT(CRND( 1 )%175+1 ) :* ヒ =RNDK( 1 )※15+1 
89 PUT SPRITE 9。(X。Y),C,9 
99 FOR =1 TU 399:NEXT TsGOTO 69 
199 DATA 29,79.59。4E,51 ,41 5A 59 
OIDSIAIAS52B 42 775 525.4E あ 5.3 上 
129 DATA 94,9E,9A,72.8A4,.82 5A 9 
139 HATA C2。DE 。42。EE,4A。F2,86。FC 
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